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mOGtiAMACAO DSJOGOS 




JOGO DO CAMPQ MINADO 
APRENDA A MONTAR UM 

PLACAR 

COMO INCQRPQRAR AO JOGO 
UM MEDIDOR DE TEMPO 



Todo jogo de 3930 realiza algum tipo 
de contagem de pontes ou de 
tempo, de modo a tornar a competigao 
mais emocionante. Nesta li^ao 
voce aprendera como fazer isso com a 
ajuda de programas bem simples. 



Quase todos os jogos de computado- 
res precisam de alguma forma de mar- 
cagao de pontos ou de cronometragem 
— ou ambos. Sem eles voce nao podera 
saber se esta se saindo bem no jogo, se 
esta melhorando, ou quern e o melhor 
jogador. Alem disso, sao esses elenien- 
tos de medida de desempenho que dao 
graga aos jogos de compuiador. 

Seria possivel, evidentemente, obri- 
gar aJguem a sentar-se ao seu lado e fi- 
car contando os disparos que voce fax, 
A melhor solugao, no entanto, e progra- 
mar o computador para fazer Jsso por 
voce. Uraas poucas llnhas a mais no 
programa darao cabo dessa tarefa, nao 
importa a complexidade do esquema de 
marcagao de pontos. 

Da mesma forma, nao existe neces- 
sidade de recorrer a um cronometro pa- 
ra marcar o tempo. Como se viu nos 
programas para o jogo de labirinto (pSg- 
46 a 52), quase todos os tipos de com- 
putador tem um reldgio embutido, que 
pode ser utilizado para melhorar sens jo- 
gos (aexcetao e o Apple II, que precisa 
de uma placa especial). 



CAMPO MINADO 



Para que voce possa ver como mon- 
tar esquemas praticos de contagem e 
cronometragem, apresentamos a seguir 
um jogo adequado a todas as maquinas, 
com excegao das compativeis com o 
ZX8], e ao quaJ acrescentaremos pro- 
gressivamente todas as rotinas necessd- 
rias. Os esquemas sao simples e podem 
set colocados tambem em outros jogos. 

O jogo ^ chamado Campo Minado, 
e nele voce e um comandante de tanque 
cuja missao e resgatar os para-quedistas 
que estao pousando imprudentemente 
em um campo minado. Por onde quer 
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que passe, o tanque corre o risco de de- 
tonar uma mina escondida ao acaso pe- 
lo computador. Assim como em campo 
de batalha real, as minas sao invisiveis; 
portanto, mova-se com cuidado! 

O tanque (apenas urn caractere #, 
infelizmente, pois voce ainda nao apren- 
deu tudo sobre combinar grdficos e mo- 
vimentos em um programa BASIC) exe- 
cuta movimentos por meio das seguin- 
tes teclas: Z para a esquerda, X para a 
direita, P para cima e L para baixo. O 
amago do programa esti na rotina de 
movimentafao de um caractere na tela 
estudada numa litao anterior. 

Quando voce digitar e rodar esta secao 
do jogo vera que ele ainda nao estd com- 
pleto, pois nada acontece depois que o 
para-quedista e resgatado. Apenas o tan- 
que continua a vagar, sem rumo, atraves 
da tela. O programa dcve ser interrompi- 
do pressionando-se as teclas < BREAK > , 
< ESCAPE > ou < STOP > , ou voce tc- 
ra que esperar ate que o tanque detone 
uma mina escondida ao acaso. Nesse mo- 
mento. o jogo terminara. Mas nao se 
preocupe, essa situagao melhorard tao lo- 
go voce acrescenteas rotinas decent age m 
e cronometragem que sc scguem. 



50 LET P0=210 

60 CLS 

70 PRINT 6256, STRINGS (32. "-") 

90 LET X=RND(256)-1 

110 IF XOPO THEN PRINT €X,"0"; 

ELSE GOTO 90 

120 PRINT §P0, "*" ; 

130 LET LP»P0 

140 IF PEEK(340)=247 THEN LET P 

0»P0-1:G0T0 190 

150 IF PEEK(338)-247 THEN LET P 

0-P0+1:GOTO 210 

J60 IF PEEK(338) =251 THEN LET P 

0-PO-32:GOTO 220 

170 IF PEEK(342)=253 THEN LET P 

O=P0+3 2:GOTO 2 20 

180 GOTO 140 

190 IF (LP AND 31)-0 THEN LET P 

= LP 

200 GOTO 220 

210 IF [PO AND 31) -0 THEN LET P 

0»LP 

220 IF PO>255 OR PO<0 THEN LET 

P0=LP:G0TO 140 

230 PRINT eLP. " " i 

240 PRINT gPO, "*" ; 

250 LET M-RNDt256)-l 

270 IF M=PO THEN PRINT ePO," " : 

PRINT ei30, "BOOM! 1 ! VOCE ACERTO 

U UMA MINA! " : STOP 

310 GOTO 130 



O movimento do tanque pela tela e 

controlado pelas linhas 140 a 170, que 

verificam quais foram as teclas pressio- 

'^ nadas (veja a pdg. 33, se nao se lembra 



de como isso e feito). A linha 220 testa 
IFPO>255... paramantero tanque no 
alto da parte central da tela. Ora, a ulti- 
ma locaijao de tela no alto da parte cen- 
tral do video e a 255; assim o IF... impe- 
de que o tanque avance abaixo da linha 
ponttlhada, desenhada pela linha 70. 

Esta ultima traga a linha atraves da 
tela, utilizando uma nova fungao — 
STRINGS. OSTRING$(32,*'-">, como 
aparece na linha 70, diz ao TRS-Color 
para desenhar um cordao (siring, em in- 
gles) de 32 travessoes (se voce quisesse 
dez pontos de interrogagao deveria uti- 
Itzar STRING$( 10, "?*'), e assim por 
diante), O lugar em que o para-quedis- 
ta cai e escolhido por um ntimero alea- 
torio na linha 90. e a linha 1 10 exibe o 
p^ra-quedas na tela se a posicao esco- 
Ihida j^ nao estiver ocupada pelo tan- 
que. Se estiver, a linha 90 escolhera ou- 
tra posi<;ao. 

Finalmente, a posi^ao da mina escon- 
dida i escolhida pela linha 250. A linha 
270 checa entao se o tanque e a mina es- 
tao na mesma loca^ao de tela. Se esti- 
verem, a mensagem de explosao sera exi- 
bida, e o programa parara. 



SO LET tx-16: LET ty-5 

60 CLS 

70 PRINT AT 11, 0;" 



90 LET px-INT (BND'«30)+1 
100 LET py-INT (RND*10) 
110 IF px-tx AND py-ty THEN 
GOTO 90 
120 PRINT AT PY.px; "O" ;AT ty, 

tx; "t" 
130 LET txx-tx: LET tyy-ty 
14.0 LET a5-INKEYS 
145 IF aS-"v" THEN LET ty-ty- 
1 

ISO IF aS-"z" THEN LET ty-ty+ 
1 

160 IF aS-'a" THEN LET tx-tx- 
1 

170 IF aS-"s" THEN LET tx-tx+ 
1 
190 IF ty<0 OR ty>10 THEN LET 

ty=tyY 
200 IF tx<0 OR tx>30 THEN LET 

tx-txx 
230 PRINT AT tyy.txx;" " 
240 PRINT AT tY,tx;"t" 
250 LET mx-INT (RND*30)+1 
260 LET my-INT (HND*1{5) 
270 IF iiix = tx AND my-ty THEN 
PRINT AT my.mx;" ": PRINT AT 
8,0;"BOOM!!! - Voce acertou um 
a mina!": GOTO 330 
310 GOTO 130 

No programa do Spectrum, a tela i 
dividida ao meio pela linha 70, que im- 
prime uma serie de 32 travessoes ao Ion- 
go do video. As linhas 145 a 170 con- 




trolam os movimentos do tanque. Uma 
explicacSo completa desse processo es- 
ta na pdgina 31. 

As linhas 190 e 200 impedem que o 
tanque saia da drea situada acima da li- 
nha (pontiJhada) trapada pela linha 70, 
e impede que ele desapare^a da tela. A 
posifao de queda dos para-quedistas e 
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escoUiida aleatoriamente pelas linhas 90 
e 100. A linha 1 10 verifica se o tanque 
e um dos para-quedistas ocupam a mes- 
ma loca^ao de tela, Se isso ocorrer, uma 
nova posi^ao de queda sera escolhida, 
indo-se para a linha 90. As linhas 250 
e 260 escoihem um lugar para a mina. 
A linha 270 compara a posigao da mina 



com a do tanque. Se eles cstivcrem no 
mesmo lugar, o tanque .sera exibido na 
tela e aparecera uma mensagem de ex- 
plosao. Neste caso, o programa parard. 



50 LET PO-220 

60 CLS 

70 LOCATE 0,12: PRINT STRINGS ( 39 

90 LET X-TNT(RND(1)*480) 

110 IF XOPO THEN VPOKE 8ASE(0) 

+X,ASC("0") ELSE GOTO 90 

120 VPOKE BASE(O) +P0,ASC(''#") 

130 LET LP-PO 

135 LET KS-INKEYS:IE KS-"" THEN 

GOTO 135 
140 IF KS-CHFS(29) THEN LET PO- 
P0-1:GOTO 190 

150 IF KS-CHRS(2e) THEN LET PO- 
PO+l:G0T0 210 

160 IF KS-CHH$(30) THEN LET PO- 
PO-40:GOTO 220 

170 IF K$-CHHS(31) THEN LET PO- 
PO+40:G0TO 220 
180 GOTO 140 

190 IF (LP/'40-INTCLP/40) ) -0 THE 
N LET PO-LP 
20Q GOTO 220 

210 IF (PO/40-INTCPO/40) ) -0 THE 
N LET PO-LP 

220 IF P0>479 OR P0<0 THEN PO-L 
P:GOTO 130 

230 VPOKE BASE (OJ+LP.ASCC " ) 
240 VPOKE BA3E(0)+PO.ASC ["t") 
250 LET M-INT(RNDC1)*480) 
270 IF M-PO THEN VPOKE BASE(0)+ 
PO.ASCC "): LOCATE 5 . 4 : PRINT 'B 

00M!i-Voc6 acertou nuiua mina'iE 

ND 

310 GOTO 130 

O mavimento do tanque pela tela e, 
como no caso anterior, controlado pe- 
las linhas 140 a 170, que verificam quais 
foram as teclas pressionadas. A linha 
220 testa IT PO >479... a fim de rcstrin- 
gir o campo de acao do tanque a parte 
alta do meio do video. A^ora, porem, 
a ultima locagao de tela nessa posi^ao 
e a 479; assim, O IF... impede que ela 
avance abaixo da linha pontilhada de- 
senhada pela linha 70. 

Tambem como no caso anterior a 
funcao STRINGS e empregada pela li- 
nha 70 para tragar a linha ao longo da 
tela. O STRING$(39, "— "), como apa- 
rece na linha 70, diz simplesmente ao 
MSX para desenhar um cordao de 39 
travessoes (veja na pdg. anterior, abai- 
xo do programa para o TRS80 e o TRS- 
Color, como fazer para obter dez pon- 
tos de interroga^ao). 

O lugar em que o para-quedista cai 
e escolhido por um niimero na linha 90; 
a linha 1 10 mostra o para-quedas na te- 
la se a posicao escolhida ji nao estiver 
ocupada pelo tanque. Se estiver, a linha 
90 escolherd outra posiijao. Nao se preo- 



cupe cm cnieiidcr, por enquamo, o co- 
mando VPOKE BASE, na linha 110. 
Ele .serve para colocar um caractere co- 
mum (ou grafico) em uma certa posi^ao 
da tela, e e usado aqui por ser mais ra- 
pido que o LOCATE. 

A linha 250, escolhe a posigao da mina 
escondida. A linha 270 verifica se o tan- 
que e a mina estao na mesma locacaoda 
teia.Scndoposiiivo, a mensagem de e\- 
plosao e exibida, eo programa lermina.. 



il ^^^^^^^^^^^^1 


50 


LET 


TX 


= 20: 


LET 


TY = 10 




60 


HOME 












70 


FOR 


I - 


1 TO 


40 






74 


HTAB 


I: 


VTAB 


13: 


PRINT " 


-" ; 


78 


NEXT 


I 










90 


LET 


PX 


= INT ( 


RND (1) 


« 4 


0) + 1 












100 


LET 


P¥ 


- INT ( 


RND (1) 


* 


12> 


+ 1 












110 


IF 


PX 


< > TX AND PY < 


> 


TY THEN 


HTAB PX 


VTAB PY: PHIN 



T "0" ; : GOTO 120 

111 GOTO 90 

120 HTAB TX: VTAB TY: 



PRINT "I 



130 


LET LX - TX: LET 


LY 


- TY 


140 


LET K = PEEK [ 


- 16384) : 


POKE 


- 


16368,0 






150 


IF 


K = 208 THEN 


LET 


TY - 


TY - 


1 








160 


IF 


K - 204 THEN 


LET 


TY - 


TY + 


1 








170 


IF 


K = 218 THEN 


LET 


TX = 


TX - 


1 








175 


IF 


K - 216 THEN 


LET 


TX - 


TX + 


1 








190 


IF 


TX < 1 OR TX 


> 40 


THEN 


LET 


TX 


- LX 






200 


IF 


TY < 1 OH TY 


> 12 


THEN 


LET 


TY 


- LY 






230 


HTAB LX: VTAB LY 


: PRINT " 


240 

J* J 


HTAB TX: VTAB TY 


: PRINT " 


250 


LET 


MX - INT ( 


RND 


(1) * 


40) + 1 








260 


LET 


MY - INT ( 


RND 


(1) * 



12) + 1 

2 70 IF MX - TX AND MY - TY THE 

N HTAB MX : VTAB HY ; PRINT " " i 

: HTAB 7: VTAB 7; PRINT "BOOM!! 

-Voce acertou uma mina";: GOTO 

330 

310 GOTO 130 

O movimento do tanque pela tela e 
conlrolado pelas linhas 140 a 170, que 
checam as teclas pressionadas (lembre- 
se da explicagao da pag. 33). Os coman- 
dos PEEK e POKE da linha 140 sao ne- 
cessdrios porque o Apple nao tem uma 
fungao em BASIC, como o INKEYS, 
que serve para fazer a varredura do te- 
clado. A fim de restringir as manobras 
do tanque, as linhas 1 90 e 200 testam se 
as suas coordenadas (TX e TY) nao ex 
cedem 40 c 12 posifoes, respect ivamen- 
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te (margem direita da tela e posi9ao de 
linha acima da linha pontilhada). 

As linhas 70 a 78 desenham uma li- 
nha pontilhada ao longo da tela, 

Um numero aleat6rio nas linhas 90 
e 100 escolhe o lugar em que o pira- 
quedista cai; a linha 1 10 exibe o para- 
quedas na tela se a posipao escolhida ja 
nao estiver ocupada pelo tanque. Se es> 
tiver, entao a linha 90 escolhera uma ou- 
tra posi^ao. Neste caso, a posii^ao da mi- 
na escondida e escolhida pelas hnhas 250 
e 260. A linha 270 entao verifica se o 
tanque e a mina estao na mesma loca- 
eao da tela. Se eles estiverem, seri exi- 
bida uma mensagem de explosao, e o 
programa se detera. 



MARQUE PONTOS 



Em jogos do tipo videogame, a con- 
tagem normalmente e aumentada quan- 
do as posifoes de tela de dois objetos sao 
iguais. Os objetos podem ser um missil 
e, o seu alvo. o "come-come" e um 
monstrinho, um tanque e um para- 
quedista, um cavalo e o poste de chega- 
da, ou qualquer outra coisa. 

Assim, acrescente estas linhas ao seu 
programa, para ver como um mecanis- 
mo de contagem funclona na pritica. 

Q 

40 LET S=0 

2B0 IF X-PO THEN LET S"S+1:G0T0 

90 
330 PRINT e295,S; "PARAOUEDISTAS 



40 LET s-0 
280 IF px-tx AND pY-ty THEN 

LET 3=3+1 : GOTO 90 
330 PRINT AT 14,8;a;" PARAQUED 
ISTAS" 



m 



40 LET S-0 

280 IF X-PO THEN LET S-E+1 : GOTO 

90 
330 LOCATE 8. 16: PRINT Si" paraq 
uediataa" 



a] 



u 



40 LET S-0 

280 IF PX - TX AND PY - TY THE 

N LET S - S + 1: GOTO 90 

3 30 HTAB 12: VTAB 15: PRINT S; 

" PARAQUEDISTAS" : 

Voce precisara substituir o STOP ou 
END na linha 270 par GOTO 330. A li- 
nha 270 devera ficar assim, agora: 



270 IF M^PO THEN PRINT gPO , " ": 
PRINT e 

130,"BOOM!!! VOCE ACERTOU UMA M 
INAl " :G OTO 330 



270 IF tax-tx AND my-ty THEN 
PRINT AT my.rnx;"!": PRINT AT 8 
,3; "BOOM! 1! - VOCE ACERTOU UMA 
MINA!": GOTO 310 



m 



27Q IF M-PO THEN VPOKE BASE(0)+ 
PO,ASC(" "): LOCATE 5,4:PRINT "B 
OOM!!-Voc6 acertou numa roina":G 
OTO 330 



[C 



270 IF MX - TX AND MY - TY THE 
N HTAB MX: VTAB MY: PRINT " "; 
: HTAB 7; UTAB 7: PRINT "BOOM!! 
-UOCE ACERTOU NUMA MINA" ; ; GOTO 
330 

A linha 280 e a mais importaitte. Ela 
checa se o tanque e o para-quedista es- 
tao na mesma locapao da tela. Se esti- 
verem, entao o placar sera incrementa- 
do de 1 ponto. 

A linha 40 volta o placar para zero, 
antes de o jogo comegar, e a linha 330 
exibe a contagem. Ao modificar-se o fi- 
nal da linha 270, o computador exibe a 
contagem depois que a mina tiver sido 
detonada. 

O jogo t'unciona assim: o jogador re- 
cebe continuamente para-quedistas pa- 
ra resgatar. Quando um e resgatado, ou- 
tro para-quedista cai do c^u, 

O jogo termina quando o tanque em 
movimento passa sobre a mina, provo- 
cando uma explosao. 



RECORDES 



Acrescentar um dispositivo de regis- 
tro do recorde de pontes no jogo nao 
e dificil. Tudo o que voce precisa e de 
uma variivel para armazenar o recorde, 
e algum modo de atualiza-la assim que 
este for quebrado. Fora isso, e necessa- 
ria ainda uma rotina de exibi^ao do re- 
corde. Estas sao as linhas que voce de- 
ve acrescentar para aumentar a capaci- 
dade de registrar e exibir recordes no jo- 
go "Campo Minado": 



D 



30 LET HS-0 

350 IF S>HS THEN LET HS=S 

370 PRINT §424, "HECOBDE=" ;HS; 




I 



30 LET ha=0 
350 IF 3>h3 THEN LET hs^g 
370 PRINT AT 1 6 , 8 ; "RECORDE- " ; h3 



fm 



30 LET HS-0 

350 IF S>HS THEN LET HS-S 

370 LOCATE 12, 20: PRINT "flecorde 

: ";HS 



ai 



30 LET HS-0 

350 IF S > HS THEN LET HS ■ 
370 HTAB 12: VTAB 20: PRINT 
ecorde-" ;HS; 



S 

'R 



Primeiro o programa deve introdu- 
zir a variave! contendo o recorde com 
um valor o mais baixo posssvel. Assim, 
a linha 30 iguala HS a zero. Quando o 
jogo termina, a linha 350 compara o lil- 
timo escore (S) com o recorde (HS). Se 
o escore for maior do que o recorde, en- 
tao HS sera atualizada, recebendo o va- 
lor em S. Finalmente, a linha 370 exibe 
o recorde na tela. 

Pode-se pensar que essas hnhas serao 
suficientes para incorporar sempre no- 
vos recordes ao jogo, Infelizmente isso 
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nao e verdade. Sempre que o programa 
6 rodado, o computador zera automa- 
ticamente o valor de HS registrado no 
jogo anterior, assim como os valores de 
todas as outras varidvels. Para manter 
valor de HS entre uma partida e ou- 
trado jogo, voce precisa acrescentar li- 
nhas de programa para perguntar ao jo- 
gador se ele quer jogar outra vez, como 
as que foram usadas em jogos ante- 
riores. 
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390 FOR F-1 TO 1000: NEXT F 


^ 


400 PRINT ei30 


LBJ 


410 PRINT ei35, "OUTRA UEZ(S/N)? 


390 


" 


400 


420 LET KS-INKEY;IF K$-"" THEN 


TAB 


GOTO 420 


410 


430 IF KS-"S" THEN GOTO 40 


tra 


440 IF KS-'N" THEN END 


420 


450 GOTO 420 


430 




440 


^^m 


450 



390 PAUSE 100 

400 PRINT AT 8.3iTAB 31 

410 PRINT AT 8,7;"euer jogar d 

e novo (S/N)?" 

420 LET aS-INKEYS 

430 IF a$-"3" THEN GOTO 40 

440 IF aS-'n' THEN STOP 

450 GOTO 420 



390 FOR F-1 TO lOOOiNEXT F 

400 LOCATE 0.4: PRINT STRINGS (39 

.■ ') 

410 PRINT TAB(IO) ; "Outra vex? ( 

S/N)" 

420 LET KS-INKEYS:IF KS-"' THEN 

GOTO 420 
430 IF K5-"S" OR KS-"s" THEN GO 
TO 40 

440 IF KS-'N" OH K$-"n" THEN EN 
D 
450 nOTO 420 



FOR F - 1 TO 1000: NEXT F 
FOR I - 1 TO 40 : HTAB I : V 
7 : PRINT " " ; : NEXT I 
HTAB 11: VTAB 8: PRINT "Ou 
tra vez? (S/N) ' ; 
GET AS 

IF AS - "S" THEN GOTO 40 
IF AS - 'N'* THEN END 
GOTO 420 

isto e o que a linha extra faz: 
Cria-se urn pequeno retardo de tem- 
po, introduzido pelo Ia<;o FOR... NEXT 
na linha 390, nosprogramas paratodos 
OS computadores, exceto para o Spec- 
trum, que usa o comando PAUSE, A li- 
nha 400 limpa uma parte da tela, de mo- 
do a prepar^-la para que a mensagem 



"MAIS UMA VEZ? (S/N)" seja im- 
pressa peia linha 410. 

A rotina que pergunta ao jogador se 
quer jogar de novo e colhe a sua respos- 
ta esta nas linhas 410 a 450 (a linha 430 
reiniciara o programa na linha 40 se S 
for pressionado, e a linha 440 parara o 
programa se N for pressionado). A !i- 
nha 450 assegura que qualquer outra te- 
cia sera ignorada. Como agora nao exis- 
te necessidade de digitar RUN cada vez 
que voce desejar jogar de novo, o valor 
de HS e preservado. 



COMO FAZER A CRONOMETRAGEM 



Do jeito que esta, o jogo depende 
muito da sorte — o jogador simples- 
mente continua andando com o tanque, 
ate encontrar uma mina escondida. 

Podemos, entretanto, introduzir no- 
vos elementos no jogo, transformando- 
o, se quisermos, era uma corrida con- 
tra o reldgio. Um desses elementos po- 
deria ser, por exemplo, um dispositive 
interne para marcar o tempo gasto em 
resgatar dez para-quedistas. 
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80 TIMER=0 

290 IF S<XO AND X=PO THEN GOTO 

90 

300 IF S=10 THEN GOTO 320 

320 LET T=TIMER 

330 PRINT 6295. S 



PARAQUEDISTAS 



340 IF S-10 THEN PRINT e327,"EM 
";T/50;" SEGUNDOS" 



10 LET t-0 

80 POKE 23672,0: POKE 23673,0 
290 IF g<10 AND px=tx AND py=t 
y THEN GOTO 90 
300 IF 3-10 THEN GOTO 320 
320 LET t-PEEK 23672+256*PEEK 
23573 

340 IF 3-10 THEN PRINT AT 16, 
8; "EM ";t/50;" SEGUNDOS" 
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80 TIME-0 

290 IF S<10 AND X-PO THEN GOTO 

90 

300 

320 

340 

RINT 



IF S-10 THEN GOTO 320 
LET T-TIME 

IF S-10 THEN LOCATE lO.lBiP 
em ";T/50;" aegundos' 



O retogio existente em cada um dos 
tipos de micros acima corre durante to- 
do o tempo em que o computador esti- 
ver ligado. 

Para iniciar a cronometragem do jo- 
go, voce precisa apenas zerar uma va- 
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PROaRAmCAOD£JOGOS 




riavel de tempo. A linha que coloca em 
zero cronometro e a linha 80 — voce 
notara que para zerar o cronfimetro do 
TRS-Color e do MSX basta fazer TI- 
MER = O. No Spectrum e mats com- 
plicado: a linha do programa zera duas 
locai;des especificas na memoria de tra- 
balho do micro, atraves de POKE 23 
672,0 e POKE 23 673,0. 

O relogio e "parado" pela linha 320. 
Na verdade, ele nao se detem; assim, vo- 
ce simplesmente instrui a maquina a 
"Icmbrar-se" do valor de lempo mar- 
cado em um delerminado momento — 
quando dois objetos coincidem na tela, 
por exemplo, 

Ness«s programas, a varidvel que 
contem a leitura do relogio e chamada 
de T — no MSX e no TRS-Color, isso 
e feito com a linha LET T = TIMER, 
e no Spectrum, com LET T = PEEK 
23672 -1- 256*PEEK 23673. 

O comando PEEK, como aprendere- 
mos em uma ligao posterior, "olha" os 
valores numericos contidos nas mesmas 
loca(;9es de memoria zeradas no inicio 
do programa. 

A !oca(;ao 23672, como qualquer lo- 
ca?ao de memoria em um micro de 8 
bits, pode center mimeros inteiros en- 
tre e 255. A locai;ao 23673 6 incremen- 
tada de 1 , loda vez que esse numero for 
excedido na locagao 23672. 

Assim, para calcular o valor total do 
tempo em que o cronometro do Spec- 
trum esteve correndo, voce deve multi- 



plicar o valor da loca^ao 23673 por 256 
e acrescentar o valor armazenado na lo- 
cai;ao 23672. Esta e a razao da expres- 
sao numerica na linha 90, na versao pa- 
ra o Spectrum. 

O relogio deve ser parado quando o 
jogador liver resgatado dez pira- 
quedistas; assim, a linha 300 checa se es- 
te valor foi atingido e salta para a linha 
320, que "para" o cronometro. 

Se o total dc resgatados for menor 
que dez. a linha 290 manda outro pa- 
ra-quedista para ser salvo peio jogador. 

A linha 340 s6 exibir^ o tempo total 
de jogo se os dez para-quedistas tiverem 
sido recuperados, A leitura do cronome- 
tro e dividida por 50 no programa. As- 
sim, o tempo exibido sera expresso, 
aproximadamente, em segundos. 
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80 LET T - 

290 IF 3 < AND PX - TX AND P 

Y - TY THEN GOTO 90 

300 IF S - 10 THEN GOTO 330 

340 IF S - 10 THEN HTAB 12: V 

TAB 16: PRINT "em "jT / 6|" seg 

undoa" ; 

A contagem de tempo na versao do 
programa para os microcomputadores 
da linha Apple e feita de forma inteira- 
mente diferentc das outras m^quinas, 
pois ele.s nao tem rel6gio interne. 

Neste caso, definimos uma variavel 
denorainada TIME, que confer^ o va- 



lor cronometrado, e uma variavei T, que 
e incrementada de 1 a cada ciclo de var- 
redura do teclado. Este e um truque 
muito facil de ser iraplemcntado, e que 
serve para qualquer computador que 
nao tenha relogio interne. 

A variavei relogio ^ zerada na linha 
80 e recebe o valor do tempo gasto na 
linha 320. Para calcular o valor do tem- 
po em segundos, divide-se o conteiido 
de T por 6. 



RECOHOE DE TEMPO 



Da mesma forma que adicionamos o 
registro de recordes de pomos ao pro- 
grama anterior, poderiamos agora 
acrescentar um registro do recorde de 
tempo (no caso, o menor tempo gasto 
para salvar dez para-quedistas). O prin- 
cipio geral de registro de recordes de 
tempo pode ser apHcado em muitos ou- 
tros jogos. 

Estas sao as linhas a serem acrescen- 
tadas ao programa: 
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2 LET LT-999999 

360 IF T<I,T AND S = 10 THEN LET L 

T=T 

380 PRINT 6452, 'MENOR TEMPO-" ;L 

T/SOi" SEGUNDOS" 



20 LET lt-999999 
360 IF t<lt AND s-10 THEN LET 

It-t 
380 PRINT AT 2 1,4; "MENOR TEMPO 
-"; It/50:" SEGUNDOS" 



mi 



20 LET LT-99<J>999! 

360 IF T<LT ^.ND S-10 THEN LET L 

T-T 

380 LOCATE 6,22:PRINT "Melhor t 

empo: ":LT/50i" segundos" 
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20 LET LT ■= 99999 

360 IF S - 10 AND T < LT THEN 

LT - T 

380 HTAB 12: VTAB 21: PRINT "e 

m " ; LT / 6;" aegundoa" ; 

Inicialmente, devemos inicializar a 
variivel usada para armazenar o menor 
tempo (LT). Esse valor, ao contrario do 
usado para introduzsr a varicivel de re- 
corde de pontos, deve ser bem alto, no 
comedo. A linha 20, incorporada ao pro- 
grama, iguala a variavei LT a 999999. 

A linha 360 compara o ultimo tern- 
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po de jogo regislrado com o menor tem- 
po, armazenado em LT. Se aquele for 
menor ainda do que o ultimo recorde de 
tempo, passara a ser o novo recorde, 
transferindo-se o seu valor para LT. 

FinaJmente, a linha 380 cjdbe o recor- 
de de tempo, em segundos. O valor da 
varidvel LT e dividido por 50 ou' por 1 00 , 
para que isto se torne possivel. 



TEMPO DE REACAO 



Ate agora, voce viu como medir o 
tempo com auxi'lio do relogio interno do 
computador, dcntro de um programa 
que checa, por exemplo, as posigoes de 
dois objetos na tela. 

Outra aplicagao interessante para esse 
modo de aferigao de tempo e utiHzar o 
teclado para medir a velocidade de rea- 
Qao do jogador a algum tipo de ai;ao 
contraria. 

Voce j^ sabe como utilizar a fun^ao 
INKEYS (em caso de diivida, veja na 
pig, 28). Ela pode servir nao so para 
controlar a movimentafao de objetos na 
tela, mas tambcm para iniciar e parar 
contagens de tempo. 

Eis aqui um jogo da variedade "ra- 
pido>no-gatilho", que ilustra muito bem 
esse tipo de aplica^ao. O programa mos- 
ira na tela: "SAQUE!", e o jogador 
deve reagir o mais rapidamente que 
puder, pressionando qualquer tecia no 
teclado, 

Q 

20 CLS 

30 LET N=RND(900) 

40 FOR F-0 TO N 

50 NEXT F 

60 PRINT 6269, "SAQUE! ! " 

70 TIMER-0 

80 IF lNKEyS*=''"THEN GOTO 80 

90 LET T-TIMEH 

100 PRINT 6269, "BANG! ! I ~ 

110 FOB F-1 TO 300 

120 NEXT F 

130 LET M=RND{25) 

140 IF T<M THEN PRINT §264. "VOC 

E SOBBEVIVEU" 

150 IF T>« THEN PRINT #266. "VOC 

E ESTA MORTO" 

160 IF T-M THEN PRINT #264 , 'VOC 

ES ESTAO AMBOS MORTOS" 



20 CLS 

30 LET N-INT <RND*400)+I 

40 PAUSE n 

60 PRINT AT 11, 14; "SAQUE! ! ' 

7G POKE 23672.0: POKE 23673.0 

60 IF INKEYS-"" THEN GOTO 80 

90 LET T-PEEK 23672+256*PEEK 

23673 



100 PRINT AT 11 , 14;"BANG! ! " 

110 PAUSE 50 

130 LET m-INT (BND*35)+1 

140 IF t<m THEN PRINT AT 11,9 

;"VOCE SOBREVIVEU" 

150 IF t>in THEN PRINT AT 11,9 

: "VOCE ESTA MORTO" 

160 IF t=in THEN PRINT AT 11,9 

; "VOCES ESTAO AMBOS MORTOS" 
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20 CLS 

30 LET N-RND(1)*900 

40 FOR F-1 TO N 

SO NEXT F 

60 LOCATE 17, 11: PRINT "SAQUE!" 

70 TIME-0 

eO IF INKEYS-"" THEN 80 

90 LET T-TlME/6 

100 LOCATE 17, 11: PRINT "BANG!!" 

110 FOR F-l TO 300 

120 NEXT F 

130 LET f1-RND(l)*25 

140 IF T<M THEN LOCATE 13, 11: PR 

INT "Voce aobreviveu" 

150 IF T>M THEN LOCATE 13, 11: PR 

INT "Voce eatd morto" 

160 IF T-M THEN LOCATE 13, 11: PR 

INT "Amboa morreram" 
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20 HOME 

30 LET N - 

40 FOR F - 

50 NEXT F 

60 HTAB 17: 

QUE ! ! " 

70 LET T - 

80 X - PEEK 
- 16368,0 

81 IF X > 1 
LET T - 
GOTO 80 

HTAB 17 



RND (13 * 2000 
1 TO N 

VTAB 13: PRINT "SA 



85 

90 

100 

ANG! 

110 

120 

130 

140 



FOR F - 
NEXT F 
LET M - 
IF T < 
AB 13: PRINT 
ISO IF T > 
AB 13: PRINT 
160 IF T 
AB 13: PRINT 



( - 16364) : POKE 

2 7 THEN GOTO 100 
T + 1 

: VTAB 13: PRINT "B 

1 TO 1000 

RND (1) * 20 
M THEN HTAB 12: VT 

"VOCE SOBREVIVEU" 
M THEN HTAB 12 : VT 

"VOCE ESTA MOHTO" 

M THEN HTAB 12: VT 

AMBOS MORRERAM " 



O programa i muito simples. Apbs 
a linha 20 ter limpado a tela, uma pau- 
sa aleatdria e introduzida pelas linhas 30 
a 50. A linha 60 exibe ''SAQUE!", e o 
cronometro e acionado imediatamente 
pela linha 70. A linha 80 faz com que 
a maquina espere at6 que uma tecla se- 
ja pressionada. A linha e exatamente 
iguaJ a que foi uttlizada nos programas 
de jogos com controle pelo teclado {ve- 
ja p^g. 28). 

Assim que qualquer lecla tenha sido 
pressionada, o programa continua pa- 
ra a linha 90, que pdra efetivamente o 




Exists algum limite maxima para o pe- 
rtodo de medida de tempK)? 

Sim, e5<iste — embora normalmen- 
te seja tao longo que, na prStica, nao 
faz diterenga. O rel6gio interno da 
maioria dos computadores dom6sticos 
corre a velocidades semelhantes. fa- 
tor limjtante, portanto, 6 g numero m^- 
ximo de impulsos de relogio que o com- 
putador pode armazenar. As linhas 
TRS-Color e MSX utilizam dois bytes; 
por isso podem contar at6 65 535 im- 
pulsos de rel6gio, um a cada 1/50 de 
segundo. Isso d^ uma capacidade ma- 
xima de temporizagao de cerca de 22 
minutos. JS os micros da linha Spec- 
trum usam 3 bytes, o que Ihes dS cer- 
ca de quatro dias de medida continua 
de tempo! 

Como funclona o crondmetro Interno 
de um microcomputador? 

Todo microcomputador tern um dis- 
positive interno para sincronizai^ao das 
atividades da Unidade Central de Pro- 
cessamento, que 6 chamado de rel6gio 
ou clock. Esse rel6gio interno tem por 
funpao gerai- pulsos el6tricos repetidos 
a uma f reqiJencia constante para cada 
micro: essa freqii^ncia 6 chamada de 
velocidade de reldgio. e seu valor va- 
rra conforme a marca do computador. 

Por exempio, o Apple II tem reldgio 
de I MHz (megahertz, ou seja, um mi- 
Ihao de "batidas" de retdgio por segun- 
do); o TRS-BO tem 2,7 MHz, e assim 
por diante. Mas esse temporizador in- 
terno nao pode ser aproveitado para 
medir o tempo como um verdadeiro 
crondmetro. 



cronometro, armazenando o seu valor 
naquele momento na variavel T. A linha 
lOOexibe "BANG!!". 

Esiste uma pausa introduzida pelas 
fin has 1 10 e 120 (a linha 110 somente no 
Spectrum) antes que um novo retardo 
inicial de tempo seja sorteado pelo pro- 
grama, Isto e feito pela Linha 130 do 
programa. 

Em seguida, o computador sorleia 
uma variavel aleatdria M, que contera 
tempo levado pelo computador para 
"sacar" sua arma. As Unhas 140 a 160 
comparam os valores T (do jogador) e 
M (da mdquina) e declaram quern foi o 
vencedor do duelo (ou se ambos os due- 
listas morreram!). 
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2 APUCACOSS 2 



ORGANIZE AS 
SUAS GOLECOES (1) 



Sen caderninho de enderecos esta uma 
bagunpa? Sua cole9ao de discos 
tern mais problemas do que discos? Ets 
aqui um programa que o ajudara 
a coiocar ordem nesse caos. 



As pessoas que nunca utiUzaram um 
computador pessoal sempre perguntam 
que lipo de aplicai^oes domesticas ele po- 
deria ter. As respostas dadas, porem, ra- 
ramenle sao convincentes. 

Neste artigo apresentamos um pro- 
grama que pode ser litil para rauilas pes- 
soas. Ele e um programa de banco de 
dados, ou seja, de organizafao e recu- 
peracao de qualquer tipo de informacao 
que possa ser fkhada. E um sistema de 
arquivamento tao flexivel que pode en- 
contrar dezenas de aplicafoes no seu 
dia-a-dia, Ele e muito litil, por exemplo, 
para armaienar os nomes e os endere- 
(pos. de amigos ou membros de um clu- 
be, ou tomar notas dos aniversarios da 
familia e dos amigos, ou armazenar de- 
talhes sobre suas colecoes de moedas, 
borboletas, discos ou receitas, ou ate 
mesmo organizar melhor a sua crescen- 
te colegao de jogos de computador. 

O unico limite para o que se pode fa- 
zer com esse programa estd no tamanho 
da memdria RAM do seu micro, Na 
maioria das vezes, o minimo necess^rio 
para aplica;;6es praticas i uma miqui- 
na com 32K. 

Seja como for, e necessario lembrar 
sempre o seguintc: como as memdrias 
dos computadores domesticos sao pe- 
quenas, em comparagao com as das ma- 
quinas profissionais, quanio menos vo- 
lumosa a informa?ao a ser mantida pe- 
lo computador, meihor. 



MENU PRINCIPAL 



Assim que voce rodar o programa pe- 
la primeira vez, at raves do comando 
RUN, o menu principal serd imediata- 
mente impresso na tela. Ele consiste nu- 
ma lista de coisas que se pode fazer com 
o arquivo, como "entrar um registro", 
por exempio, ou "pesquisar o arquivo". 



a 



ABRA SEU ARQUIVO 



Os computadores necessitam de de- 
talhes precisos do que se quer, antes de 
qualquer opera^ao. Para abrir um no- 
vo arquivo e necessario primeiro dizer 
ao computador o numero de registros 
que se quer e a extensao maxima que ca- 



da registro pode ter. "ABRIR UM AR- 
QUIVO" e a opcao I do menu princi- 
pal; assim, para seleciond-la, voce deve 
pressionar a tecla I ; as palavras "VO- 
CE TEM CERTEZA?" aparecerao na 
tela. Essa rea?ao da maquina e uma pre- 
caucao contra o pressionamento aciden- 
tal da tecla I , pois chamar a roiina de 
•'ABRIR UM ARQUIVO" quando o 
sistema de arquivamento ja estiver ar- 
mazenando dados pode comproraeter 
todo o trabalho. 

Se voce tiver certeza de que quer abrir 
um novo arquivo, pressione S. Mas, se 
o arquivo ]a estiver armazenando dados 
e voce nao deseja apaga-los, pressione 
qualquer outra tecla, e o programa re- 
tornar^ ao menu principal. ^ 



TAMANHO DOS CAMPOS 



Uma vez que voce tenha prcssiona- 
do S para continuar, o computador 
perguntari quantos campos voce quer. 
"Campos" sao os itens de informafao 
que voce quer armazenados em cada re- 
gistro. Por exempio, se voce quer regis- 
trar dados sobre os seus amigos, pode- 
riam ser definidos os seguintes campos: 
nome, enderefo, cidade e numero do le- 
lefone — quatro ao todo. 

Este programa so permite um niime- 
ro maximo de oito campos para um re- 
gistro individual; do contrario, ele nao 
poderia exibi-ios, todos, na tela ao mes- 
mo tempo. Uma vez fornecido o nijme- 
ro de campos a pergunta seguinte do 
computador sera: "Qual o nome do 
campo r.'". (No exempio acima, a res- 
posta poderia ser NOME.) 

A seguir, o programa pede a exten- 
sio do primeiro campo, isto e, o nume- 
ro mAximo de caracteres que ele pode 
conter. 

A extensao maxima para qualquer 
campo permitida no programa e de de- 
zenove caracteres. Isso significa que, se 
a informapao que se quer arqutvar — 
um endereco, por exempio — nao cou- 
ber nessa extensao, e precise dividir o 
campo em duas ou mais partes. No ca- 
so de um endere90 isso pode ser feito 
por meio da defini^ao de campos sepa- 
rados para a rua, numero da casa, ci- 
dade, codigo postal, etc. 




De posse da informapao sobre o pri- 
meiro campo, o computador fara a mes- 
ma pergunta sobre o segundo campo, o 
terceiro, e assim por diante. Obviamen- 
te, quanto menores forem os nomes dos 
campos e os niimeros dos caracteres em 
cada campo, mais registros poderao ser 
retidos no arquivo. 

Isto feito, o computador calculara 
para quantos registros ele tem espaco na 
memdria. Esse niimero sera exibido na 
tela. No programa para o TK-90X, vo- 
ce deve especificar quantos registros 
quer armazenar, evitando que o compu- 
tador gaste tempo excessivo gravando 
ou tendo longos arquivos da fita. 



2 APUCACOiS 2 



IHIVf*!?' 



- MANTENHA EM ORDEM AS 



MEMdRIA DISPONfVEL 



- UM PROGRAMA PRATICO DE 



ARQUIVAMENTO DISPONIVEL 



UTILIZE EFICIENTEMENTE A 




SUASCOLECgiS - ESTABELECA UM NOVO ARQUIVQ 
I - REVEJA SEU ARQUIVO 



COMO ARMAZENAR E 



RECUPERAR INFORMACOES 



COMO ENTRAR UM REGISTRO 



Terminado o processo de criapao de 
um novo arquivo, o programa trara de 
volta menu principal, onde vqce deve 
selecionar a opgao 2 (tecla 2), para ini- 
ciar a entrada da irvformaflo em seus re- 
gistros. 

No alto da lela. o computador man- 
leri uma contagem dos registros que vo- 
ce j^ entrou, juntamente com o espa?o 
total disponivel na mem6ria. Essa linha 
de infonna?ao dira, per exempio: "Vo- 
ce utilizou 10 dos 100 registros". 

LoBo abaLxo disso", na tela, serao exi- 



bidos OS nomes dos campos. O cursor 
aparecera na liltima linha do video, de 
tal modo que tudo que voce escrever pe- 
lo teclado serd registrado no campo exi- 
bido. Lembre-se de manter a informa- 
(jao digitada tao curia quanto possivel 
e dentro da extensao maxima de carac- 
teres que voce estabeleceu para cada 
campo, 

Quando voce pressionar a tecla < EN- 
TER> ou < RETURN >, ainformafao 
digitada sera impressa pr6xima ao nome 
do campo. A linha inferior da tela seri 
limpa e ficar^ pronta para o proximo 
campo. Esse procedimento comeca com 
o primeiro campo no alto da tela e pros- 



segue por toda a tela cada vez que voce 
digita uma informa^ao c pressiona 
< ENTER > ou < RETURN >. Quan- 
do voce tiver entrado o ultimo campo do 
registro, o computador ira para o pro- 
ximo regis tro a ser entrado. Se voce pres- 
sionar a tecla < ENTER > ou < RE- 
TURN > novamente, antes de comeijar 
a digitar o primeiro campo, o computa- 
dor trar^ o menu principal de volta. 



EXAMINE OS REGISTROS 



ira examinar os registros que voce 
sclecione a opcao niimero 3 do 
menu piincipal, "VER REGISTROS", 
pressidH|ndo a tecla 3. O primeiro re- 
gistro seakCntao exibido na tela — nao 
neccssariamcnie o primeiro que voce in- 
troduziu, mat o primeiro de acordo com 
o proprio oiiJtodo de sele^ao do 
programa. 

Os metodos de arranjo dos compu- 
tadores" variam muito pouco. Mas, dc 
niodo geral, eles selecionam os registros 
cm ordem alfab^tica at raves do primei- 
ro campo, o qual, em muitos casos, se- 
ra "NOME". Para fazer isso, o com- 
putador examina a primeira letra do pri- 
meiro campo de todos os registros e os 
ordena alfabeticamente. Se mais de um 
registro tiver a mesma inicial, ele os or- 
dena em fun^ao da segunda letra, e as- 
sim por diante. 

Quando o primeiro campo contiver 
algarismos, o computador sekcionara 
sempre um deles antes de qualquer le- 
tra; mas prosseguiri com o mesmo me- 
lodo de ordenafao, digito por digito, 
quando estiver decidindo entre nume- 
ros, alem de olhar para o niimero como 
um todo. Em outras palavras, se voce 
colocar os numeros de 1 a 100 no pri- 
meiro campo, por exempio, o compu- 
tador ordenara em primeiro lugar os nu- 
meros 1, 10. II, 12, 13, 14, 15, 16, 17, 
18, 19 e 100 antes de movimentar-se pa- 
ra o 2, 20, 21 , etc. A maneira de se con- 
tornar esse problema e evitar o empre- 
go de numeros no primeiro campo ou 
entrar os numeros com zeros a esquer- 
da, como, por exempio: 001, 002 ...010, 
Oil ... atd 100. 

Quando, por outro lado, se utiliza 
uma mistura de letra.s maiiisculas e mi- 



ss 



nusculas, q cooiputador escolhe primei- 
ro as maiusculas. Assira, "ABC Limi- 
tada" podera ser antes de "AarSo e 
Companhia". Dependendo do que o ar- 
quivo dc dados contiver, pode ser que 
o mais conveniente seja voce digitar to- 
das as informa?6es apenas em tetras 
maiusculas, para resolver o problema, 
Se o seu computador aceitar caracteres 
acentuados, voce poderd ter problemas 
na ordena?ao, pois na codifica^ao bra- 
si leira para os caracteres (adotada, per 
exemplo, para os micros da linha MSX) 
as letras acentuadas aparecem depois 
das minuscuLas, na ordem alfab^tica. 
Quando voce pedir para ver os regis- 
tros, aparecerao as seguintes opfoes: 



PROSSEGUE 



RETORNA 



MENU 



escritas na parte inferior da tela. Se vo- 
ce pressionar a tecla P, o computador 
exibira o registro seguinte; se voce pres- 
sionar o R virias vezes. ele se movimen- 
tara rapidamente atraves de todo o ar- 
quivo, registro por registro. 

Uma pressao na tecla R traz de volta 
a tela o registro anterior ao exibido. As- 
sim, usando apenas o P e o R, voc€ po- 
de percorrer o arquivo, registro por re- 
gistro, para a frente e para trSs. Ja a te- 
cla M provoca o retorno ao menu prin- 
cipal, qualquer que seja ponto onde 
voce estiver no arquivo. 

ErabaLxo da primeira linha de opgoes 
aparecera uma segunda com as seguin- 
tes altemativas: 

CORRIGE APAGA IMPRIME 

Essas fun^oes nao constam do atual 
programa e serao explicadas no prt^xi- 
mo artigo desta sdrie. Portanto, nada 
acontecera se voc& tentar usi-las na pre- 
seme versao do programa. 



ARMAZENE ARQUIVOS NA MEfVtdRIA 



A medida que voce for entrando da- 
dos nos registros do seu arquivo, eles se- 
rao armazenados na mem6ria principal 
(memoria RAM) do computador, den- 
tro do limite maximo no mimero de re- 
gistros, calcuiado peto programa. E ne- 
cessdrio, portanto, armazenar esse ar- 
quivo em fita magn^tica, se voce quiser 
desUgai o computador; caso contririo, 
perderS toda a informafao digitada, 
Posteriormentc, quando voce quiser 
modificar ou acresceniar dados, consul- 
tar ou listar o arquivo, poderd carregar 
de voita o arquivo para a mem6ria 
RAM do computador, lendo-o em fita. 

Na maioria das versoes do programa 
listadas abaixo, o menu principai ofe- 
rece as duas mencionadas oppfies ao 
usudrio: gravar ou carregar o arquivo de 




dados. A linica excetjao e a versao para 
OS micros da linha Sinclair, que gravam 
o programa juntamente com os dados 
contidos em memoria. 

Quando voce quiser salvar o seu ar- 
quivo nos micros das linhas TRS-Color 
ou MSX, pressione a lecla 5 para sele- 
cionar a op?ao de armazenamento no 
menu principal, e o computador Ihe pe- 
dira que de urn norae qualquer ao arqui- 
vo. Uma vez que voce tenha teclado o 
nome do arquivo e pressionado < RE- 
TURN > ou < ENTER >, o computa- 
dor pedira que vocS posicione o grava- 
dor para a gravafSo, apertando as teclas 
RECORD e PLAY, e pressionando = 
< ENTER > emseguida. Elnquanto gra- 
va, o computador mantem voce infor- 
mado. O tempo de grava^o depende do 
mimero de registros a ser armazenado, 

Nos micros da linha Sinclair, a fun- 



<;ao dc gravapao ^ ativada de forma di- 
ferente da anterior. Neste caso, selecio- 
ne primeiro a opipao 7 (SAIDA) no me- 
nu principal. Em seguida, usando o co- 
mando SAVE normal, digitado direta- 
menie pelo teclado, acione o gravador e 
grave o programa, dando-Ihe um nome 
adequado. Os dados serao gravados con- 
juntamente, conforme ji foi explicado. 
Posteriormentc, quando quiser con- 
sular o arquivo, voce deve (nos micros 
das linhas citadas acima) carregar o 
computador em dois estagios. Inicial- 
mente, e necessdrio carregar o progra- 
ma, utilizando o comando normal 
LOAD (ou CLOAD) de sua maquina. 
Em seguida, deve-se mandar executar o 
programa, acionando o comando RUN, 
e selecionar a op^ao 6 no menu princi- 
pal, "CARREGAR ARQUIVO". O 
computador pedird entao o nome do ar- 



quivo desejado. Quando voce tiver te- 
clado o nome do arquivo e pressionado 
< RETURN > ou < ENTER >, a ma 

quina ordenara: "POSrCIONE O 
GRAVADOR E PRESSIONE <EiN- 
TER> ". Feito isto, ele dira novamen- 
te: "COLOQUE O GRAVADOR NA 
POSICAO PLAY E PRESSIONE 
<ENTER>". 

Assim que a fita cassete comecar a 
rodar, o computador a examinara at^ 
enconirar o arquivo que voce deseja, o 
qual sera carregado (o que podera de- 
morar algum tempo), Concluida a ope- 
ragao, ele dira que o arquivo foi carre- 
gado corretamente. Se o arquivo que vo- 
ce quiser nao estiver na fita, o compu- 
tador tesEard todos os arquivos que en- 
contrar nela, ate o fmat. De qualquer 
maneira, no final, o programa fari re- 
tornar o menu principal. So entao voce 
poder^ selecionar a opcao 6 riovamente 
e procurar oufro arquivo para carregar. 

Nos micros da linha Sinclair, como d 
o caso do TK-90X, os dados e o progra- 
ma principal sac carregados juntos. Lima 
vezque liver carregado o primeiro arqui- 
vo utilizando o comando LOAD padrao, 
podera carregar outros arquivos por 
meio da op<;ao 6 no menu principal, 

A versao do programa para compu- 
tadores da linha Apple tambem tern fun- 
goes de menu iguais as dos micros ja 
considerados. A unica diferenga e que 
o programa utiliza arquivos em disque- 
te, para armazenamento c recuperagao 
de dados, pois nao funciona satisfato- 
riamente com fita cassete. 

Os programas iistados contem gran- 
des intervales em seus niimeros de linhas 
— da linha 2000 a linha 6000. 

Todavia, isso foi feito intencional- 
mente, Digite os programas exatamen- 
tecomo estao, pois as linhas que fattam 
serao utilizadas para incorporar as par- 
tes responsaveis pclas fun^oes de modi- 
ficagao, apagamento, tmpressao e cru- 
zamento tie informagoes dos registros. 

Os detalhes dessas opfoes estao no 
prdximo artigo desta serie. 
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20 PCLEAB1:CLEAB 11000:RSS-"P R 

MCAI" :BS-CHHS (128) 

30 CLS:PRlNTe32. STRINGS (8, BS) ;" 

MENU"; STRINGS (J." ") i "PRINCIPAL 

-; STRINGS (8, BSJ 

40 PRINT ei64.''l-ABRIH UM ARQUI 

VO" 

50 PRINT §196,"2-ENTRAH COM UM 

BECISTHO" 

60 PRINT e228."3-VEH HEGISTROS" 

70 PRINT 6260,"4-0PCA0 DE PROCU 

RA" 

80 PRINT e292,'5-SALVAR ARQUIVO 



90 PRINT e324."6-CARREGAR ABQUI 

VO" 

100 PRINT 6356, "Z-SAIDA 

110 PRINT g481,"SELECI0NE OPCAO 

120 1N3-INKE¥S:IF INSd'OR IN$ 

>"7" THEN 120 

130 IF IN$ <>"1" AND IN$<>"6" A 

ND R-0 AND INS<>"7"THEN 120 

140 SOUND 30,1:CLS: IN-VAL(IN$) 

150 ON IN GOSUB 1000,2000,6000, 

SOOO, 7000, 8000, 9000 

160 GOTO 30 

1000 PRINT e41,'ABRlR UM ARQUIV 

0': PRINT §231, "VOCE TEM CERTEZA 

(S/N)?" 

1010 INS-INKEY$:IF INSO'S* AND 

INSO'N* THEN 1010 
1020 IF IN$<>"S"THEN RETURN 
1030 IF R>0 THEN RUN 9200 
1040 CLS: PRINT €41 , "ABRIR UM AR 
QUIVO" 

1050 PRINT e3B5."NUMEH0 DE CAMP 
0S(l-8)*; : INPUT A: A-ABS(INT<A) 
) 

1060 IF A>e OR A<i THEN 1050 
1070 DIM A (A) <N$CA) 
1080 PRINT e384,'";PHINT #96,-" 
:FOR N-1 TO A 

1090 PRINT :PRINT''NOME DO CAMPO" 
;N;"7" ; :LINEINPUT NS (N) :N$IN)-L 
EFTS(N$(N) ,105 

1100 PHINT-COMPRIMENTO DO CAMPO 
";N;:INPUT A(N) : A(N) -ABS (INT (A ( 
N))) 

1110 IF A(N)>19 OR A(N><1 THEN 
1100 

112C TS"TS+A{N) 

1130 NEXT;H-INT(11000/t5+5*A))- 
1: PRINT" NUMERO MAXIMO DE REGIS 
TROS-" ;R 

1140 DIM AS (R. A): FOB I-l TO 200 
: NEXT : RETURN 
2000 G-0 

2010 IF NR-R THEN 2180 
20Z0 NR=NR+1 

2030 CLSrPHINT eO.-VOCE USOU '; 
NR-li" DOS ";R;" REGISTBOS DISP 
ONIVEIS" 

2040 FOB N-1 TO A: PRINT e32*N+3 
2,NS(N);" :":PRINT e448,"":PBIN 
T §416,"" 

2050 PRINT ©416. "(ATE '':A(N):"C 
ARACTERES) "i:LINE INPUT AS <NR 
,N) 

2060 IF AS(NR.N)="" AND N-1 TH 
EN N=A:G-1:G0T0 2060 
2070 AS(NR.N)=L£FTS(A$(NR,N) .A( 
N)):PBINT §32*N-«-45,AS(NB.N) 
2080 NEXT 

2090 IF G-1 THEN 2160 
2100 C*NR:F0a F-1 TO 150:NEXT:I 
F NR-1 THEN 2150 
2110 IF AS(C,1) >>-AS (C-1.1) THEN 

2150 
2120 FOB N-1 TO A:XS-A$ (C,N) :AS 
(C,N)=A$(C-1,N) :AS(C-1,N)-XS:NE 
XT:C=C-1 

2130 IF C-1 THEN 2150 
2140 GOTO 2110 
2150 GOTO 2010 
2160 NR-NR-1 
2170 RETURN 



2180 CLS3: PRINT §235," ARQUIVO 
CHEIO ";:FOR G-l TO 5: SCREEN 
.1: FOB F=l TO 500 :NEXT 
2190 SCREEN 0.0: FOR F-1 TO 500: 

NEXT F.G: RETURN 
3000 RETURN: REM LINHA TEMPORARI 
A 

4000 RETURN: REM LINHA TEMPORARI 
A 

5000 RETURN: REM LINHA TEMPORARI 
A 

6000 D-1 

6010 IF NH<1 THEN 6170 
6020 GOSUB 8500 

60'30 PRINT §451 , "pBOSSEGUE r 
ETORNA HlENU cOHRIGE aPAGA 

iMPRIME" ; 
6040 INS=INKEVS: IF INS-"" THEN 
6040 

6050 lN-INSTBU,aSS,INS) 
6060 ON IN GOTO 6080,6080,6090, 
6100,6110,6120,6130 
6070 GOTO 6030 
6080 D-D+1:G0T0 6140 
6090 D-D-1 :GOTO 6140 
6100 RETURN 

6110 G03UB 3000:GOTO 6020 
6120 GOSUB 4000;GOTO 6010 
6130 GOSUB 10000 :G0T0 6030 
6140 IF D>NR THEN D-1 
6150 IF D<1 THEN D=NR 
6160 GOTO 6010 
6170 CLS3 :PRINT6233. " ARQUIVO V 

Azro - ! 

6180 FOR G-1 TO 5:SCBEEN . 1 : FO 




COMO TORNAR UM PROGRAMA 
LONGO MAIS FACIL DE DIGITAR 

Digitar um programa longo escrilo 
por outra pessoa pode ser uma tarefa 
bastante trabalhosa e desanimado- 
ra, mesmo para os mais persistentes. 
Mas voce pode torn^-la mais f^ctl, e 
gratificante, digitando apenas uma cur- 
ta se^ao de cada vez e testando-a em 
seguida. 

Alguns programas estao estrutura- 
dos em sepoes ou mddulos mais ou 
menos independentes, tais comosub- 
rotinas, procedimentos e lagos, mas se 
voc6 nao conseguir identifJci-los digi- 
te apenas segoes curtas de 20 ou 30 
linhas. 

Quando nada se sabe de programa- 
gao BASIC, a chance de errar uma li- 
nha e nao perceber 4 relativamente 
grande, pois a mudanpa de apenas um 
pequeno stnai ou letra jS 6 suficiente 
para impedir que o programa funcione 
corretamente. 

Eis ai um bom incentivo para voce se- 
guir tambem o curso de programagao 
BASIC de INPUT, de modo sistemati- 
co e desde o comeco. 



71 
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R F=l TO 300: NEXT: SCREEN , : FO 

R F-1 TO 300: NEXT F.G: RETURN 

7000 AUDI0ON:MOTOR0N:CLS: PRINT 

#65, "POSICIONE GRAVADOR E PRE 

SSIONE <ENTER>'': 

7010 INS-INKEYS:IF INS<>CHHSfl3 

) THEN 7010 

7020 MOTOHOFF; PRINT ei29,"COLOQ 

UE GftAUADOR EM POSICAO 'REC 

E PRESSIONE <ENTER>''; 

7030 IN$-INKEYS:IF INS<>CHRS(13 

) THEN 7030 

704C PRINT: INPUT" NOME DO AEQUI 

VO ";Fr$ 

7 050 CLS6: PRINT #232 , "CHAVANDO 

" i FIS I 

7060 MOTOR0N:F0H I-I TO 1000 :NE 

XT 

7070 OPEN"0" , |-1 , FI$ 

7080 PaiNT|-l,FI$,R,A.NB 

7090 FOR N=l TO A : PRlNTi-l ,N5 (N 

) ,A(N) :NEXT 

7100 C-1 

7110 IF AS{C,1)="" THEN 7140 

7120 FOR N=l TO A: PRINTI-1 , A$ (C 

,N) :NEXT 

7130 C-C+1:G0T0 7110 

7140 CL0SE#-1 : RETURN 

8000 CLS:PRINT@70 , "VOCE TEM CEH 

TEZA (S/N)?" 

8010 INS-INKEYS: IF INFO'S" AND 

INSO'N" THEN 8010 
B020 IF INS-"N" THEN RETURN 
8030 AUDlOON:rtOTORON:CLS; PRINT 
e65,"P0SICI0NE GRAVADOR E PRE 
SSIONE <ENTEH>' 

8040 IN$=INKEyS : IF IN3<>CHR3(13 
) THEN 8040 

8050 MOTOROFF: PRINT €129,"COLOQ 
UE GRAVADOR NA POSICAO ' PLA 
¥■ E PRESSIONE <ENTER>'' 
8060 INS-INKEyS:IF IN5<>CHRSa3 
) THEN 6060 

80 70 IF R>0 THEN HUN 9210 
8080 INPUT " NOME DO ARQUIUO'sF 
IS 

8090 CLS7: PRINT ^231 , "PROCURAND 
"; 

8100 OPEN "I" ,i-l , FIS 
8110 INPUT i-l.FIS 
8120 PRINT #231." ACHEl ";FIS; 

n If , 

8130 INPUT|-1,R,A,NH 

8140 DIM ACA) ,NS(A) .AS<R,A] 

8150 FOR N-1 TO A : INPUTf-l .N3 <N 

) ,A(N) ;NEXT 

8160 C-1 

6170 IFEOF C-1) THEN 6200 

8180 FOR N"l TO A: INPUT #-l,A$( 

C,N) 

8190 NEXT: C=C+1;G0T0 8170 

8200 CLOSE t-1: RETURN 

8300 CLS;PRINTe0,"NUMERO DO BEG 

ISTHO";D:FOR N-1 TO A: PRINT #32 

*N+32,N${N) ;" r";TAB(13) ;AS(D,N 

) ; NEXT : RETURN 

9000 CLS4 ; PRINT §70, "VOCE TEM 

CERTE2A (S/N)?-; 
9010 INS-INKEYS:IF IN3<>"S" AND 

IN$<:>"N" THEN 9010 
9020 IF INS-'N" THEN RETURN 
90 30 CLS:END 
9200 GOSUB 1040:GOTO 9220 



9210 GOSUB 8080 

9220 BS-CHRS (128) :RSS-"P RMCAI " 

:GOTO 30 

10000 PRINT #451," CHEQUE IMP 

HESSORA cONT " ; 

10010 PRINT #480," 



10020 
1002 
10030 
10040 
31 :P 
AND P 
10050 
96 

10060 
10070 
BINTt 
10080 
$(13) 
10090 



IN$-=INKEY3; IF INS- 



THEN 



IF INSO'C THEN RETURN 
FOB Y-0 TO A+4:F0R X-0 TO 
PEEK<1024+X+Y*32) :1FP>95 
<127 THEN P-P-64 
IF P>0 AND P<27 THEN P-P+ 

IF P-0 THEN P»32 

PRINT #-2,CHHS(P) ; :NEXT:P 
-2,CHRS(13) ; : NEXT 

FOR N-I TO 3:PRINf#-2,CHR 
:NEXT 

RETURN 



5 LET R-0: LET U-0 : LET V-1 
10 BORDER V: PAPER U: INK 7: 
POKE 23609,20: POKE 23658,8 
100 CLS : PRINT INVERSE V ; AT 
V.lOi "MENU" 
110 PRINT AT S-fii'l-Abrir um a 
rquivo" "'TAB 6;''2-Entrar com 
um reqii3tro" ' 'TAB fif'S-Ver reg 
i3tro3"''TAB 6j"4-Opcao de pro 
cura"''TAB 6 ; "6-Cairreqar arqui 
vo"''TAB 6:"7-Saida''i#ViTAB 6; 
"-SELECIONE OPCAO-" 
500 LET IS-INKEYS : IF IS""" 

THEN GOTO 500 
510 IF IS<"1" OH I$>"7" THEN 

GOTO 500 
520 IF R-U AND 1S<>"1" AND 
IS <>"6" AND IS<>"7" THEN 

GOTO 500 
530 SOUND .1,10: CLS : GOSUB ( 
CODE 13 -485*1000: GOTO 100 

1000 PRINT AT 7,8; "Voce tem cer 

teza?": PAUSE U: IF INKEY3-"" T 

HEN GOTO 1000 

1010 IF INKEY$<>"S" THEN BETUR 

N 

1020 PRINT INVERSE V ; AT 10,5;" 
CRIAR UM NOVO AHOUIVO " 

1030 INPUT AT 0,0;"Nuniero de ca 

mpos(l-8)? "-.A: IF a<l OR a>8 T 

HEN GOTO 1030 

1040 DIM A (A): DIM B (A+V) ; DIM 

N$(A,10): LET T-U : FOR N-V TO A 

105 INPUT AT 0.0; 'Nome do camp 

o "; <N) ;" 7 "; LINE NS (N) 

1060 INPUT AT V.O; "Coraprimento 

do campo ' ; (N) ; " ? -;A(N): IF A 

(N)>50 THEN GOTO 1060 

1070 LET B(N}-T: LET T-T+A<N): 

NEXT N; LET B(N)-T 

1080 PRINT AT 16,2;"Egpaco para 
";INT (((PEEK 23730+256*PEEK 2 

3731)-29500)/T) ;" reqistroa" 

1090 INPUT "Quantoa reoiatros? 

";Rr DIM ASCR.T) : RETURN 

2000 LET C-V 

2010 IF AS(C.V)-" " THEN GOTO 

2100 

2020 IF C»R THEN GOTO 2500 



2030 LET C-C+V: GOTO 2010 

2100 PRINT AT 0,0;'Voce uaou "; 

C-V;" d03 ":R;" registros d 

iaponiveis" 

2110 FOR N-V TO A: PRINT INVER 

SE ViAT V+N*2.U;NS(N) ; INVERSE 

0;AT V+N*2.12; FLASH V;'?": INP 

UT "(ate ";(A(N));" caracteres) 

", LINE AS(C,B(N)+V TO B(N+V)); 

PRINT AT V+2«N,12;AS{C,B(N)+U 
TO B(N+V} ) : NEXT N 
2120 FOR F-V TO 150: NEXT F: IF 

C-V THEN RETURN 
2130 LET N-C 

2140 IF A$(C}>-AS(C-V) THEN RE 
TURN 

2150 LET XS-AS(C): LET AS(C)-AS 
(C-V): LET AS(C-V)-XS: LET C-C- 
V: IF C-V THEN RETURN 
2160 GOTO 2140 

2500 CLS : PRINT FLASH 1 ; AT 10 
,2;"ARQUIU0 CHEIO 
": FOR F-V TO 400: NEXT F: RETU 
RN 

3000 LET D-V: IF AS(V,V)-" " TH 
EN RETURN 

3010 IF D-U THEN LET D-U 
3015 IF D-V-R THEN LET D-D-V 
3020 IF AS(D.U)=" " THEN LET D 
-D-V 

3030 GOSUB 95O0 

3040 IF OP=V THEN LET 0=D+U : G 
OTO 3010 

3050 IF OP-2 THEN LET D-D-V: G 
OTO 3O10 

3060 IF 0P=3 THEN RETURN 
3070 IF 0P=4 THEN GOSUB 8000 
3080 IF OP-5 THEN LET MD-V: GO 
SUB 9000; IF D-U THEN RETURN 
3090 GOTO 3030 

4000 RETURN : REM LINHA TEMPORA 
RIA 

5000 INPUT "Diqite o nome do ar 
quivo "; LINE QS: IF LEN QS<V 
OH LEN OS>10 THEN GOTO 5000 
5010 SAVE QS LINE 10: RETURN 
6000 PRINT AT 8,U;"Digite o nom 
e do arquivo a sercarreqado, 
ou aomente <ENTER> para carrega 
r o priineiro arquivo" 

6010 INPUT LINE XS: IF LEN XS> 
10 THEN GOTO 6010 
6020 PRINT AT 13, U; "PRESSIONE P 
LAY NO GRAVADOR": LOAD XS 
7000 PRINT AT 10,8; "Voce tern ce 
rteza?": IF INKEYS-"" THEN GOT 
7000 

7010 IF INKEYSO'S" THEN RETUR 
N 

7 20 RAND USR U 

8000 RETURN : HEM LINHA TEMPORA 
RIA 

90O0 RETURN : REM LINHA TEMPORA 
RIA 

9500 PRINT AT U. U : "Regi atro num 
ero ";D;" ": FOR N-V TO A: PHI 
NT INVERSE V;AT V+2*N , U :NS (N) r 
INVERSE U;TAB 1 2 ; AS (D, B (N) +V T 
B (N+V) ) : NEXT N 
9510 PRINT INVERSE V;AT 20,U;" 
P(ros3egue) R(etorna) M(enu) 
E(inenda) A(paga) I (mpriio 
e)" 



9520 IF INKERS'-"" THEN GOTO 95 


20 




9530 LET VS-INKEY$: 


IF V$="I" T 


HEN COPY ; LPRINT : 


LPRINT ; L 


PRINT : GOTO 9520 




9540 LET OP-U: IF US 


_„p,. ^j^gjj 


LET OP-V: LET MO-V 




9550 IF VS-"R" THEN 


LET OP-2: 


LET MO--V 




9560 IP V$="M" THEN 


LET OP=J 


9570 IF VS-"E" THEN 


LET OP-4 


9580 IF VS-"*" THEN 


LET OP-5 



9590 IF OP-U THEN GOTO 9520 
9600 SOUND .1.10: RETURN 



m 



10 KEyOFF:MOTOROFF 

20 CLS: CLEAR :RS-'P RMCAI* 

30 CLStLOCATE 5, i: PRINT" M 



£ N 



U PRINCIPAL" 

40 LOCATE 9, 5 :PRINT"1 :-ABRIB UM 

ARQUIVO' 
50 LOCATE 9,7 :PRINT"2:-ENTRADA 
DE REGISTROS" 

60 LOCATE 9.9;PRINT"3:-LISTAR R 
EGISTROS" 

70 LOCATE 9, ll:PaiNT"4; -BUSCA D 
E INFORMACOES" 

80 LOCATE 9,13;PHINT"5— GRAVAH 
U« ARQUIUO" 

90 LOCATE 9, 15:PRINT"6:-CARREGA 
H UM ARQUIVO" 
100 LOCATE 9,17:PRINT''7:-FIM DE 

PROGRAMA" 
110 LOCATE 14,19:PHINT"0Pg:&0: " 

120 INS-INKEYS:IF INS<'1'0RIN$> 

"7''THEN120 

130 IFINS<>"1''ANDINS<>"6"ANDINS 

<>"7"ANDR-0THEN 120 




140 PHINTCHRS(7) ; CLS ; IN-VAL [IN 

S) 

150 ON IN GOSUB 1000,2000,6000. 

5000.7000, 8000,9000 

160 GOTO 30 

1000 LOCATE 7.0:PRINT"MONTAR OM 

NOVO ARQUIVO" ; LOCATE 7,14'PRIN 
T'Voce tem certeza (S/N)?"; 
1010 IN5-INKEYS:IFINS<>'S"ANDIN 
SO'N-THEN 1010 
102O IFINSO'S'THEN RETURN 
1030 IFR>OTHEN HUN 9200 
1040 CLS: LOCATE 7 , : PRINT"MONTA 
H UM NOVO ARQUIVO" 
1050 LOCATE 4 , 2 : PRINT"Numero de 

campos (1-8) ";: INPUT A:A-ABS< 
INT (A) ) 

1060 IF A>S OR A<1 THEN1050 
1070 DIM A{A) ,NS (A) 
1080 LOCATE , 6 : FOR N-ITOA 
1090 PRINT: PRINT" Nome do canipo 
";N:"? " ; :LINEINPUTNS(N) :NS{N)- 
LEFTSCNSCN} ,10) 

1100 PRlNT'Tamanho do campo "iN 
; :INPUTA(N) : A (N) -ABS (INT CA(N) ) ) 
1110 IFA(N)>25ORACN)<lTHENll00 
1120 TS-TS+A(N> 

1130 NEXT:R-INT(3000/(TS+3*A)) : 
PRINT: PRINT"Nufliero maximo de re 
gistros ->" ;R 

1140 DIM:AS(R+1,A) :FORI-lTO1000: 
NEXT: RETURN 

2000 G-0 

2010 IFNR-RTHEN2190 

2020 NR-NR+1 

2030 CLS: PRINTNR-1;" de "iR;" r 

egistros em uao* 

2040 FORN-ITOA: LOCATED, N*2+2: PR 

INTNS (N) ;": ": LOCATED , 22 : PRINTC 

HRS(5} ; : LOCATED, 23 ;PRINTCHRS (5) 

2050 LOCATE0,23:PRINT"Atd ";A(N 

) : ' caracterea" ; 

2060 LOCATED, 21 :PHINTCHRS (21) ; : 

LINEINPUTAS(NR,N) 

2070 IFAS (NR,N)-"''ANDN-1THENN-A 

:G-1 :GOT02090 

2080 AS(Na.N)-LEFTS(A$(NH.N) .A( 

N) ) :L0CATE12,N*2+2:PRINTASCNR,N 

) 

2 090 NEXT 

2100 1FG-1THEN2170 

2110 C-NH : FORF- 1TO500 : NEXT : IFNR 

-1THEN2160 

2120 IFAS{C,1)>-AS(C-1,1)THEN21 

60 

2130 FORN-ITOA: SWAPAS (C,N) , AS (C 

-1,N) :NEXT:C-C-1 

2140 IFC-1THEN2160 

2150 G0TO2120 

2160 GOTO2010 

2170 NH-NR-1 

2180 RETURN 

2190 CLS : LOCATEIO , 15 : PRIMT'ARQU 

IVO CHEIO! " :FORF-lTO1000:NEXT 

2200 RETURN 

3000 RETURN: HEM LINHA TEMPORARI 

A 

4000 RETURN :REM LINHA TEMPORARI 

A 

5000 RETUHN:HEM LINHA TEMPORARI 

A 

6000 D-1 
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6010 IFNH<1THEN6170 

6020 GOSUB8500 

6030 LOCATES. 22: PRINT- [Plrossec 

ue [BJetorna [M]enu [C]o 

rrige [A]paga tlJmpriroe" 

6040 rN$-INKEY$:IFINS-""THEN604 



6050 1N-1NSTR(1.R$,INS) 

5060 ON IN GOTO 6090,6080,6090, 

6100.6110,6120,6130 

6070 GOTO6030 

6080 D-D+l:GOTO6140 

6090 D-D-1 :GOTO6140 

610 RETURN 

6110 GOSUB3000;GOTO6Q20 

6120 GOSUB4000:GOTO6010 

6130 GOSUB10000:aOTO6020 

6140 IFD>NRTHEND-1 

6150 IFD<1THEND-NB 

6160 GOTO 6010 

6170 CLS:LOCATE10, 15;PRINT"ARQU 

lyo UAZIO! " 

6180 FOHF-1TO500 :NEXT:RETLIRN 

7000 MOTOR :CLS:LOCATE0, 5: PRINT" 

Posicione a fita e tecle [retur 

n]- 

7010 INS-INKEYS:IFINS<>CHR3(13) 

THEN7010 

7020 MOTOR: PRINT: PRINT ;PBINT''Co 

loque o qravddor em modo de gra 

vafsSo e preaaione [return]" 

7030 INS-INKEYS:IFINS<>.CHRS(i3) 

THEN7030 

7040 PRINT: lNPUT"Noire dJO arquiv 

o ";FLS :FS-'*CAS:" + FLS 

7050 LOCATEIO, 22:PRINT"Gravando 

7060'MOTOR:FORr-a,TO1000 :NEXT 

7070 OPEN FL$ FOR OUTPUT AS*1 

7080 PRINT #1,FLS;", ";R,A.NH 

7090 FORM=ilTOA:PRINTH ,NS(N) ! " . 

"iAlN) :NEXT 

7100 C-1 

7110 1FASCC,1)-"''THEN7140 

7120 F0RN-1T0A:PRINTH,AS(C,N) : 

NEXT 

7130 C-C+1 :GOT07110 

7140 CLOSEIl iRETURN 

8000 CLS : LOCATEIO, 15 iPRINT'Voce 
ten certezd? (S/N) " 

8010 INS-INKEYSiIFINSO'S'ANDlN 

S<>'N"THEN8010 

8020 IFINS-'N'THENRETUHN 

8030 MOTOR :CLS:LOCATeO, 3: PRINT" 

Po3icione a fita e tecie [retur 

n]' 

804 INS-INKEY$:1FINS<>CHRS(13) 

THEN8040 

8050 MOTOR : LOCATED, 7 :PRINT"Colo 

que o gravador esi modo de repro 

du^ao e tecle [return]" 

8060 1NS-INKEY$:IFINS<>CHRSU3J 

THENSOSO 

8070 IFR>0THENBUN9210 

8080 PRINT: INPUT"Nome do arqulv 

O " ;FL$:FS-'CAS:"-t-FL$ 

8090 LOCATEIO , 22 : PRINT"Procuran 

do. . ." 

8100 OPEN F$ FOR INPUT AS*1 

alio INPUT #1 ,FL3 
,, 8120 CLS: LOCATE 1Q.U5 : PRINT"Ach 
'* el ";FLS X 



8130 INPUT|1.R,A,NR 

8140 DIMA(A) ,N$ (A) .AS<R,A) 

8150 FORN-ITOA: INPUTtl ,NS (N) .At 

N) :NEXT 

8160 C-1 

8170 IFEOF [l)THENa200 

8180 FORN-ITOA: INPUTH , AS CC.N) 

8190 NEXT : C-C+1 :G0TO81 70 

8200 CLOSEtl: RETURN 

8S00 CLS:PRINT"Nilniero do regiat 

ro ->" ;D: FORN-ITOA: LOCATED, N*2+ 

2:PRINTNS (N) ;" : " i : L0CATE13 : PRI 

NTA$(D,N3 : NEXT: RETURN 

9000 CLS : LOCATEIO, 15 :PRINT"Voc6 

tern certeza? (S/N) " 
9010 INS-INKEYS: IFIN$<>"S"ANDIN 
S<>"N"THEN9010 
9020 IFN$-"N" THENRETURH 
9030 CLS:END 
9200 GOSUB1040;GOTO9220 
9210 GOSUB9080 
9220 RS-"P RMCAI" 
10000 CLS: LOCATEIO, 15:PRINT"CHE 
QUE A IMPRESORA" 

10010 PRINT :L0CATE12:PRINT"ALIN 
HE PAPEL" 

10020 INS-tNKEyS:IFINKES^""THEN 
10020 

10040 LPRINT :LPBINT''Regiatro nii 
mero "jD 

10050 F0HX-1T0A:LPPINT:LPRINT N 
S(X) ; " : " !AS (D,X) :NEXT 
10060 LPHINT:LPHINT:LPR1NT;LPRI 
NT 
100 70 CLS; RETURN 
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20 TEXT : CLEAR : D$ = CHRS (4 
) 

25 ONERR GOTO 11000 
30 HOME : VTAB 1: HTAB 6: INUE 
HSE : PRINT "MENU PRI 
NCI PAL": NORMAL 
40 VTAB 5: HTAB 10: PRINT "1;- 
ABHIR UM AH2UIV0" 
50 PRINT : HTAB 10: PRINT "2;- 
ENTRADA DE REGISTROS" 
60 PRINT : aXAB 10: PRINT "3;- 
LISTAR REGISTROS" 
70 PRINT : HTAB ID: PRINT "4:- 
BUSCA DE INFORMACOES" 
80 PRINT : HTAB 10: PRINT "5:- 
QRAVAR ABQUIVO" 
90 PRINT : HTAB 10: PRINT '6:- 
CARREGAR UM AHQUIVO" 
100 PRINT : HTAB 10: PRINT "7: 
-FIM DE PROGHAMA" 

110 VTAB 20: HTAB IS; PRINT "0 
PCAO : " : 
120 GET INS 

130 IF INS < "1" OH IN$ > "7" 
THEN 110 

135 IF R - AND INS < > "1" 
AND INS < > "6" AND INS <:' > " 
7" THEN 110 

140 PRINT CHRS (7): HOME : IN 
= VAL (INS) 

150 ON IN GOSUB 1000,2000,6000 
,5000.7000,8000.6520 
160 GOTO 30 

1000 HTAB 8: INVERSE : PRINT " 
MONTAR UM NOVO ARQDIVO ': VTAB 



15: HTAB 10: PRINT " VOCE CONF 
IRMA? (S/N) "i 
1005 NORMAL 

1010 GET 1N$; IF INS < > "S" 
AND IN$ < > -N" THEN 1010 
lOZO IF INS < > *S** THEN RET 
URN 

1030 IF R > THEN CLEAR :DS 
- CHRS (4) ;IN - 1- HOME : GOTO 

150 
1040 HOME : HTAB 8: INVERSE : 
PRINT " MONTAR UM NOVO ARQUIVO 
" ; NORMAL 

lOSO VTAB 3: HTAB 5: PRINT "NU 
MERO DE CAMPOS (1-8): ";: INPUT 

A 
1060 IF A > 8 OR A < 1 THEN 10 
50 

1070 DIM A(A) ,NS(A) 
1080 VTAB 7: FOR N - 1 TO A 
1090 PRINT "NOME DO CAMPO " ; N ; 
" ";; INPUT NS(N):NS{N) - LEFT 
S (NSCN) ,10) 

1100 PRINT "TAMANHO DO CAMPO " 
;M;" "i: INPUT A(N):A(N) » ABS 

C INT (A(N) ) ) 
1110 IF ACN) < 1 OR A(N) > 25 
THEN 1100 

1120 TS - TS + A(N) : PRINT 
1130 NEXT :B - INT ( ( FRE (0) 

- 5000) / (TS + 2 * A) ) : IF R 
> 4000 THEN R = 4000 
1135 R - 3: REM RETIRAH ESTA L 
INHA ' ' ' ' ' ! !!l 1! !! ! !************ 

1140 PRINT : PRINT "NUMERO MAX 

IMO DE REGISTROS: ";R 

1150 DIM AS(H,A): FOR I - 1 TO 

2000: NEXT : RETURN 
2000 G - 
2010 IF MR - H THEN 2180: REM 

CHECK GOTO 
2020 NR " NH + 1 
2030 HOME : PRINT NR - 1;" DE 
";Hi" REGISTROS EM USO" 
2 040 FOR N » 1 TO A: VTAB N * 
2+2: PRINT NSCN);":": VTAB 23 
: CALL ~ 958 

2050 VTAB 24: PRINT "ATE ";A(N 
);" CARACTERES" ; : VTAB 23: HTAB 

1: INPUT AS CNR, N) 
2060 IF AS(NR.N) - "" AND N - 
1 THEN NR - NR - 1: RETURN 
2070 AS(NR.N) - LEFTS (AS(NH,N 
),A(N)): VTAB N * 2 + 2; HTAB 1 
3: PRINT AS(NH,N) 
2080 NEXT 

2090 IF AS(NH.l) > = AS(NH - 
1,1) THEN 2150 

2100 FOR C - NR TO 2 STEP - 1 
2110 FOR N - 1 TO A:XS - A$(C, 
N):AS(C,N) - AS(C - 1,N):AS(C - 

1,N) - XS: NEXT 
2120 NEXT 
2150 FOR F - 1 TO 1000: NEXT : 

GOTO 2010 
2180 UTAB 3: HTAB 1: CALL - 9 
58: VTAB 15: HTAB 10: FLASH : P 
RINT " ARQUIVO CHEIO! " 
2190 PRINT CHRS (7): FOR F = 
1 TO 1000: NEXT : PRINT CHRS C 
7) : RETURN 
3000 RETURN : REM LINHA TEMPO 
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RARIA 

4000 RETURN : REM LINHA TEMPO 

RARIA 

5000 RETURN ; REM LINHA TEMPO 

RARIA 

6000 IF NR < 1 THEN VTAB 15: 

HTAB 12: FLASH : PRINT " ARQUIW 

VAZIOi ": FOR F - 1 TO 1000: 

NEXT : RETURN 

6010 D - 1 

6020 POKE 35,22: VTAB 23: IUVE 

RSE : HTAB 4; PRINT "P" ; : HTAB 

18: PRINT "R";: HTAB 32: PRINT 

"M" 

6030 UTAB 24: HTAB 8: PRINT "C 

";: HTAB 20; PRINT "A";: HTAB 3 

0: PRINT "I"i : NORMAL 

6040 VTAB 23: HTAB 5: PRINT "R 

OSSEGUE- i : HTAB 19: PElINT "ETOR 

NA";: HTAB 33: PRINT "ENU" 

6050 VTAB 24: HTAB 9: PRINT '0 

RRIGE':: HTAB 21: PRINT "PAGA"; 

: HTAB 31: PRINT "MPRIME" ; 

6060 GOSUB 6500 

6070 GET INS 

6080 IF INS - CHRS (32) OB IN 

S = "P" THEN D=D+1: IFD> 

NB THEN D =■ 1 

6090 IF INS - "R" THEN D - D - 

1: IF D < 1 THEN D - Nfi 
6100 IF IN$ < > 'I" AND INS < 
> "A" AND INS < > "C" AND IN 
S < > "M" THEN 6060 
6110 POKE 35,24 
6115 IF INS - "M" THEN RETURN 

6120 IF INS - 'I' THEN GOSUB 



10000: GOTO 6020 

6130 IF INS - "A" THEN GOSUB 

4000: GOTO 6020 

6140 IF INS - "C" THEN GOSUB 

3000: GOTO 6020 

6150 GOTO 6060 

6500 VTAB 1: HTAB 1: CALL - 9 

58: PRINT "NUMERO DO HEGISTRO - 

>";: INVERSE : PRINT D: NORMAL 

6510 FOR I - 1 TO A: UTAB I * 

2+2: PRINT NSCI);: HTAB 13: P 

HINT AS(D,I): NEXT ; RETURN 

6520 END 

7000 HOME : VTAB 10: HTAB 10: 

PRINT "GHAUAR ARQUIUO' 

7005 PRINT : PRINT : HTAB 5: I 

NPUT 'NOME DC ARQUIVO ->";AHS 

7010 PRINT : HTAB 5: PRINT "CO 

NFERE ? " ; : GET INS 

7015 IF INS < > "S" THEN RET 

URN 

7020 PRINT : PRINT DS;"OPEN";A 

RS: PRINT OS; "DELETE" :AR$ 

7030 PRINT OS; "OPEN"; ARS 

7040 PRINT DS: "WRITE" ; ARS 

7050 PRINT R: PRINT A: PRINT N 

H 

7055 FOR I - 1 TO A: PRINT N$ ( 

I) : PRINT A (I) : NEXT 

7060 FOR J - 1 TO NH 

7070 FOR I » 1 TO A 

7080 PRINT ASCJ.I): NEXT : NEX 

T 

7090 PRINT DS; "CLOSE"; ARS 

7100 RETURN 

8000 CLEAR ;DS - CHRS C4J 

8010 VTAB 10: HTAB 10: PRINT " 



CARREGAR DADOS" 

S020 PRINT : HTAB 5: INPUT "NO 

ME DO ARQUIVO ->":ABS 

8025 HTAB 5: PRINT "CONFERE ? 

" ; : GET INS 

8027 IF INS < > "S" THEN GOT 

30 

8030 PRINT DS ; "OPEN" ;ARS 

6040 PRINT DS; "READ"; ARS 

3050 INPUT R,A,NR: DIM AS{a,A) 

,N$(A) ,N(A) 

8060 FOR I - 1 TO A: INPUT N5 ( 

I) .A(I) ; NEXT 

8066 FOR J - 1 TO NR 

8069 FOR I = 1 TO A 

8071 INPUT ASCJ,I): NEXT : NEX 

T 

8073 PRINT DS;" CLOSE" i ARS 

807B GOTO 30 

10000 HOME : VTAB 23: HTAB 9: 

PRINT " CHEQUE A IMPBESSORA! " 

10010 HTAB 12: PRINT " ALINHE 

PAPEL " ; 

10015 GET INS 

lOOZO VTAB 1: PRINT : PRINT C 

HHS (4) i-PRIl" 

10030 PRINT : PRINT "HEGISTRO 

NUMERO ";D 

10040 FOB X - 1 TO A: PRINT : 

PRINT NS(X);" :"; TAB ( 15);A$CD 

.X) ; NEXT 

10050 PRINT : PRINT : PRINT : 

PRINT : PRINT 

10055 PRINT CHRS (4);"PHt0" 

10060 HOME : RETURN 

11000 PRINT DS; "CLOSE": GOTO 2 





O programa de arquivamento de 
dados listado nesle arligo e no pro- 
ximo pode ser utiiizado em muilos ti- 
pos de aplicacdes, pais o usudrio tern 
a oporiunidade de definir. ele mes- 
mo, OS carapos ou diferentes itens de 
informa^ao que coiisdndrdo a f'tcha 
de cadastramento a ser usada. 

Em compuiai'ao, esse lipo de sis- 
tema flexivel, ou programdvel pelo 
usudrio final, e coniumente chama- 
do de sistema gcrenciador de base dc 
dado^; nfein de passuir asfun0es es- 
senciais de qitalquer sisiema de cadas- 
Irarnenco, esse sistema tamfyenr tern 
urn modulo de criai'ao do lay out do 
arquivo. con forme o uso que ele (era. 

Uma base de dados, na definifdo 
mats estriia do termo, e urn conjun- 
lo de arqidvns de compulador, que 
lem a mesma finulidade do ponto de 
visia do armazenamento e recupcra- 
<;ao de informai'des. Normalmeme, 
porSanto, urna dessas bases indui 
mais de um arquivo: por exemplo, 
em uma base de dados bihliogrdficos 
(arfigos de revistasj, teriamos o arqui- 
vo-mestre, ou arquivo-tombo, o ar- 



O QUE E UMA BASE DE DADOS? 

quivo de indice por aurores, o arqui- 
vo de indice por assuntos, o arquivo 
de names de revisias, e assim por 
dianie. Todos eles podem ser infer- 
relaciotwdos por meio de um ou mais 
campos em comum {par exemplo, o 
mimero de tombo do artigo, e o c6- 
digo da revisfa). 

Enlretania. podemos considerar, 
de forma simplificada, que uma ba- 
se de dados com apenas um arqt(ivo_ 
tambem pode cair nessa defmit;do. E 
o casa do programa list ado em BA- 
SIC nesle arligo. 

A unica condi(;do essencial para 
que ele continue sendo chamado de 
um sistema gerenciador de base de 
dados e que o usudrio possa definir 
livremenie os campos de informa^do 
que quer ler em cada ficha (desde 
que, e claro, sejam respeilados os li- 
mites intrinsecos do programa). 

MODEIOS DE BASES DE DADOS 

Existem diversas formas de orga- 
niza<;do da informafdo em uma base 
de dados. Normalmenie, lodas as 



formas tern peio menos uma carac- 
teri'stica em comum: a subdivisdo do 
arquivo em registros individuals. 

A forma pela quai esses registros 
(ou OS campos do registro} sdo orga- 
nizados e que difere de caso para 
CQSo. Na verdade, a organizafdo de 
uma base de dados e diiada pelo 
programa apltcalivo que a conirola. 

A forma de organizai^do mass co- 
mum para uma base de dados i a 
chamada estrutum relational. Ela e 
basiantefdcd de eniendere rtiuilo in- 
fuitiva. pois se equivale a uma tabe- 
la. ou planiiha de dupla entrada, com 
linhas e colunas. Essa tabelc e cha- 
mada de relagao, dai o nome da es- 
iruiura. Como voce jd deve ter per- 
cebido, o programa listado neste ar- 
tigo e uma base de dados relacional. 

Na estrutura relacional. as linhas 
da tabela correspondem sempre aos 
registros (por exemplo, cada livro de 
uma biblioteca). ao passo que as co- 
lunas correspondem aos diversos 
campos (lais como o nome do aulor, 
o ti'tuto da revista, o ano de publica- 
^do, etc.). 
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Universalmente adotados, os sinais de 
trinsrto servem para orientaf o 
fluxo do Irdfego. No mundo dos micros, 
OS comandos GOTO e GOSUB 
cumprem uma funpao semelhante. 



Uma das instnieoesmais importantes 
em programacrao BASIC e o GOTO ("vi 
para", em ingles). Sua fun^ao e aiterar 
fluxo de execucio de um programa, de 
modo que, ao inves de simplesmente exe- 
cutar as linhas do programa em ordem 
linear, o computador salta para a linha 
indicada na declaragao GOTO. 

Embora possa aparecer na tela como 
duas palavras separadas, GOTO nnr- 



malmente e digitada como uma s6 ex- 
pressao. Nos micros da linha Sinclair, 
voce pressiona a tecla marcada GOTO 
para entrar a instru^ao no computador. 
Em outros tipos de micros, voce digit a 
GOTO sem o espago entre GO e TO. 
A palavra GOTO deve ser sempre se- 
guida pelo niimero da Unha para onde 
voce quer que o programa sake, como 
no exemplo abaixo: 



DO! 



30 GOTO 125 
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Em alguns computadores, como os 
da linha Sinclair, em vez de um niime- 
ro, podemos ter uma expressao ou eqya- 
<jao de calculo (inclusive o nome de uma 
variavcl), que assume um valor num^- 
rico quando o programa e rodado. 
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GOTO E GOSUB NA PRATICA 



PROGRAMAS PARA CALCULO, 



ADIVINHACAO DE NOMES 

E JOGOS DE DADOS 

QUANDO E COMO CRIAR 



DESVIOS EM UM PROGRAMA 



UTILIZACAO EM DESVIOS 
COMPLEXOS 



COMO ACELERAR AS SUB- 
ROTINAS 




10 LET A=10 

20 GOTO A+5 equivale a goto 15 

As declarafoes GOTO permitem 
tamb^m que voce salte para tr^s em um 
programa, criando um lai;o. Esse tipo 
de laijo e semelhante aquele que apren- 
demos a montar com as declaragoes 
FOR. ..NEXT, embora nao haja. neste 
caso. um limite para o niimero de vezes 
que o programa o executa. O programa 
abaixo ealcula o valor da hipotenusa dc 
um triangulo retangulo (note de que ma- 
neira os vaiores em A e B sao elevados 
ao quadrado: multiplicando-os por si 
mesmo, o que e mais rdpido do que usar 
a opera<;ao de exponenciacao). 



DEI! 
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20 LET C=SQH(A«A+B*B) 

30 PRINT'O COMPRIMENTO DO LADO 

C E';C;'CM" 

40 GOTO 10 

Na linha 20, a fun<;ao SQR e utilizada 
para extrair a raiz quadrada (SQR e a 
abreviatura de square root, expressao in- 
glesa que quer dizcr exatamente "raiz qua- 
drada") do que esti entre parenteses, ou 
seja, a expressao toda significa: "extraia 
a raiz quadrada de A ao quadrado mais 
B ao quadrado, e armazene o resuttado 
e m C . (E sta e a formula de Pitagoras, 
VA^ + B^' = C^paracalcularocompri- 
mento C da hipotenusa de um triangulo 
retangulo, cujos catetos sao A e B.) A li- 
nha 30 imprime o valor resultanie em C. 

Em virtude da linha 40, o programa 
se auto-repetira, pois cada vez que ele a 
alcani;a a declarat;ao GOTO manda-o de 
volta k linha 1 0, e o programa i executa- 
do outra vez. 

A unica maneira de sair desse ciclo e in- 
terromperexternainenteo programa, atra- 
vesdatecla <BREAK> ou <CTRL> 
<C>, <CTRL> <STOP>,etc.,de 
pendendo do computador, ou entao 
desliga-Io e comegar de novo (pois o pro- 
grama na memoria se perde). 



SALTOS PARA A fRENTE 



A declaravao GOTO pode ser 
utilizada para saltar para a frcn- 
te, por sobre um bloco do pro- 
grama. E o que acontece no pro 
grama a seguir, que simula 
um jogo de cara ou coroa: 



Digite o programa abaixo usando so- 
mente maiiisculas, se o seu computador 
for compativel com o ZX-81: 

5 PAUSE 50 : CLS 
10 PRINT "Eatou jogando a uioe 
da. . ."; 

20 FOR j-1 TO 3 



DEI 



10 PRINT "COMPRIMENTO DOS LADOS 

A.B EM CM" 
15 INPUT A.B 



5 FOR F=l TO 500:NEXT 

F:CLS 

10 PRINT "ESTOU JOGANDO 

A MOEDA ..." 

20 FOR J-1 TO 3 

30 FOB F=l TO 250:NEXT F 

40 PRINT" . " i 

50 NEXT J 

60 PRINT 

70 IF RNDtOX.S THEN GOTO 100 

SO PRINT'E DEU COROA!" 

90 GOTO 5 

100 PRINT" E DEU CAJlAl" 

110 GOTO 5 




30 PAUSE 2 5 

40 PRINT ".'; 

50 NEXT 3 

60 PRINT 

70 IF RND<.5 THEN GOTO 100 

80 PRINT "E" coroa! ! ! " 

90 GOTO 5 
100 PRINT "E' cara! ! !" 
110 GOTO 5 
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5 FOB F-1 TO 500 : NEXT 

6 CLS 

10 PRINT "ESTOU JOGANDO A 

MOEDA ..." 

20 FOR J-1 TO 3 

30 FOR F=l TO 250 : NEXT F 

4 PRINT " . " ; 

50 NEXT J 

60 PRINT 

70 IF RNDdX.S THEN GOTO 100 

80 PRINT "E DEU COROA !" 

90 GOTO 5 

100 PRINT "E DEU CARA !" 

110 GOTO 5 

A fun^ao RND na linha 70 sorteia um 
niimero aleatbrio entre e i . Aqui, a de- 
cIara?ao GOTO faz parte da declara;;ao 
IF. Se o niimero selecionado pcio com- 
putador for menor do que 5, o com- 
putador saJtara para a frente, para a li- 
ivha 100. Se ele nao saiisfizer essa con- 
diifao, o compmador executara normal- 
mente a linha seguinte do programa — 
a linha 80 — , e quaisquer outros coman- 
dos porventura existentes na linha 70 se- 
rao desprezados, 

Essa condifao significa que a linha 70 
constrdi unia bifurcagao no programa. 
Existem, neste caso, duas alternativas: ou 
o computador executa as linhas 70, 80 
e 90, para exibir na tela a mensagem "E 
DEU CARA?", ou.entao, executa as li- 
nhas 70, 100 e 1 10, para exibir "E DEU 
COROAP'. Isso e feito repetidas vezes, 
de forma lotaimente aleatoria, como 
uma especie de lan^amento rdpido de 
uma "moeda eletrSnica". 

As linhas 90 e 100 tambem contem de- 
claragoes GOTO. Qualquer que seja o 
desvio tornado pelo programa, elas o 
mandarao de volta ao inicio, na linha 5, 
para come^ai outro sorteio. 

Mais unta vez, voce notara que este pro- 
grama nao termina nunca. A linica manei- 
ra de para-fo e pressionai a tecla de inter- 
nip?ao do seu comptitador, ou desligd-lo. 



DESVIOS MAtS COMPLEXOS 



Nos computadores da iinha Sinclair, 

a declaragao GOTO nao precisa ser se- 

guida de uma constante num^rica. Uma 

I variavel servira; GOTO A, por exemplo, 

! ouGOTOdOfl ^ INT(RND*6)). Issosig- 



ni fica que a declaraipao GOTO pode pro- 
porcionar um tipo de desvio mais com- 
plexo ao seu programa; veja a seguir. 



Digite o programa abaixo usando so- 
mente maiiisculas, se o seu computador 
for compativel com o ZX-81. 

100 PRINT "Ola, qual e o geu n 

ome?" 

110 INPUT aS 

120 GOTO (130+INT (RND*4j*10) 

130 PRINT "E" um bonito nome, 

";aS: GOTO 170 

140 PRINT "E" um nome gozado, 

";aS: GOTO 170 

150 PRINT "Prazer em conhece-1 

o, ";a$: GOTO 170 

160 PRINT "Ola, " ; a$ ; " , eu sou 

9eu coiaputador . " 
170 STOP 

A declaragao GOTO na linha 120 dd 
um saho aleat6rio para a frente, cm di- 
regao a quatquer uma das quatro linhas 
com as alternativas do programa, em 
fun9ao do rcsuttado da expressao nume- 
rics. O numero 130 na expressao pode 
ser somado a 0, 10, 20 ou 30, dependen- 
do do resultado da expressao com RND. 
Assim, o programa poder^ saltar para 
as linhas 130. 140, 150 ou 160, 

O GOTO 170, apos cada alternaJiva, 
faz com que o programa saite para a 
frente, ignorando as linhas intermedia- 
rias. Note que nao necessitamos de um 
GOTO 170 apos a linha 1 60. pois o pro- 
grama vai para a linha 170 de qualquer 
maneira (e a ultima alternativa de GO- 
TO na linha 120). 

Assim, este programa roda apenas 
uma vez, pois todos os GOTO instruem 
o computador para saltar para a instru- 
cao STOP na linha 1 70, sem formar la- 
Qos de retorno. 



A HVSTRUQAO ON^.GOTO 



Os computadores da linha TRS. MSX 
c Apple tern um equivalente ao GOTO 
variavel existenie apenas nos computa- 
dores da linha Sinclair. E a declara^ao 
ON. ..GOTO. Esta ultima e bastante po- 
derosa e litil em programaijao. e tem a 
seguinte forma (um exemplo): 

ON A GOTO 100,200.300,400 

Neste exemplo, quando a varidvel A 
for igual a 1, o programa saltard para 
o primeiro numero de iinha na lista que 
se segue S palavra GOTO, ou seja, a li- 
nha de numero 100. Se A for igual a 2, 
o programa ird para a linha 200, e as- 
sim por diante. A lista de linhas ap5s 
GOTO pode ter qualquer numero de ele- 



mentos, com um minimo de 2. e um mi- 
ximo determinado pelo numero miximo 
de caracteres por Iinha de programa que 
o seu computador aceita (normalmente 
254 ou 255 caracteres). 

Novamente, esta declara^ao permite 
a programa<;a.o de desvios complexes. O 
programa anterior passa a ser assim. 



QD 



100 PRINT" OLA, QUAL E SEU NOM 

E?" 

110 INPUT AS 

120 ON RNDC4) GOTO 130,140.150, 

160 

130 PRINT "E UM BONITO NOME. " ; A 

S:GOTO 170 

140 PRINT" E UM NOME GOZADO. "jA 

$;GOTO 170 

150 PRINT"PBAZER EM CONHECE-LO, 

";A$:GOTO 170 
160 PRINT 'OLA. ':AS:". EU SOU 
SEU COMPUTADOR." 
170 END 
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100 PRINT "OLA, QUAL E* O SEU 
NOME ?" 
110 INPUT AS 

120 ON INT(RNDC1)*4)-H GOTO 
130, 140. 150. 160 
130 PRINT "£■ UM BONITO NOME. " 
;AS:GOTO 170 

140 PRINT "E' NOME GOZADO, " 
;AS:GOTO 170 

150 PRINT "PHAZER EM CONHECE- 
LO, - ;AS:GOTO 170 
160 PRINT 'OLA, " : AS ; " , EU SOU 
SEU COMPUTADOR" 
170 END 



EVITE MAS TECNICAS DE PROGRAMACAO 



O excessivo emprego dc GOTO em uxn 
programa e considerado um mau estilo de 
programa<;ao. Uma razao para isso e que, 
mesmo cm programas simples, uma decla- 
ra^^ao GOTO que o raanda de volta para 
uma linha prccedenie pode criar um lago 
sem fini. Ora, esse laco so podera ser 
interrompido por meio do teciado, 
pressionando - se . para isso, as tec!a.s 
<BRkAK>. <STOP>, <CTRL> 
< C > , etc. — ou desligando-se o com- 
putador. I sso e inconveniente, prin - 
cipalmente parao usuirio do programa. 

Mas a principal razao e que, perm iti n- 
do que voce salte, para tras ou para a fren- 
te, para qualquer pom o do programa, ao 
inteiro sabor de sua vontade, o uso do 
GOTO tendeaquebrara estruturalogi- 
ca do programa. Isso pode nao parecer 
muito importante, se voce estiver lidan- 
docomprogramasde5ou 10 linhas. mas 
pode ser vital , se voce estiver escrevendo 
programas de 100 ou 1000 linhas. 




Um bom estilo de programa^ao re- 
quer que os programas sejam desenvol- 
vidos em modulos 16gicos, cada um de- 
sempenhando uma tarefa bem separada. 
Isso ajuda muito quando voce tern que 
localizar erros de prograinagao que ocor- 
rera ateatoriamente, no raomento em 
que o programa e rodado. Esse estilo de 
programagao (conhecido como estrutu- 
rado) aj udara tambem a fazer progra- 
mas mais simples, que poderao ser facil- 
meme modificados no future. 



COMO UmiZAR GOSUB 



Existe outra ferramenta de programa- 
tao que pode ser utilizada para substi- 
tuir em grande parte o GOTO, quando 
este e problematico: e o GOSUB. Essa 
instru?ao e digitada com uma palavra e 
deve ser seguida por um numero de li- 
nha (ou ainda por uma expressao nume- 
rica, em micros da linha Sinclair). 

O GOSUB envia o computador para 
uma sub-rotina, que se inicia na iinha es- 
pecificada por ele. Uma sub-rotina e um 
conj unto de operapdes dentro de um pro- 
grama que podem ser colocadas a parte, 
em uma especie de "tijolo" [6gico. Ela e 
freqiientemente utilizada quando uma 
operafao deve ser repetida virias vezes ao 
longo de um programa. Assim, ao inv6s 



de escrever esta rotina loda vez que ela 
ocorre no programa, podemos coloca-la 
em um ponto qualquer, e simplesmente 
direcionar o computador para ela, quando 
necessario, e quant as vezes desejarmos. 

A diferenca decisiva enire um GOTO 
e um GOSUB e que no final de uma sub- 
rotina deve constar a palavra RETURN 
("retornar", em ingles). Para entrar es- 
ta palavra, nos computadores da linha 
Sinclair deve-se simplesmente pressionar 
a tecla marcada com RETURN. Nos ou- 
tros micros, digita-se a palavra por ex- 
tenso, pressionando-se < ENTER > ou 
< RETURN > depois (nao confunda a 
tecia de retorno de carro, ou transmis- 
sao, que e sempre indicada no texto de 
forma diferente, com a instruijao RE- 
TURN). 

A declara^ao RETURN envia o Hu- 
xo do programa de volta k linha ou ao 
comando que se segue ao GOSUB que 
solicitou ("chamou", nagiria dos pro- 
gramadores) a sub-rotina, Assim, o com- 
putador sempre "se lembra" de que pon- 
to do programs foi efetuado o desvio pa- 
ra a sub-rotina e sempre volta a ele, pa- 
ra continuar o fluxo normal do progra- 
ma, depois que a sub-rotina e completa- 
da. Desse modo, podemos colocar cha- 
raadas a mesma sub-rotina em qualquer 
ponto do programa. 

No programa seguinte exemplifica- 
mos o USD do GOSUB. Ele Simula um jo- 



go de dados muilo simples, uma especie 
de * 'crepe". No jogo, um par de dados 
e arremessado, e o total dos pontos ob- 
tidos e anotado. Se os totals de dois ar- 
remessos sucessivos forem iguais, o jo- 
go terrainara. Caso contrario, os dados 
serSo arremessados novamente. 



DD 



20 LET A-1 

30 REM. -PRIMEIRO LANCAMENTO. 

40 GOSUB 150 

50 LET T1=T 

60 BEM..SEGUNDO LANCAMENTO.. 

70 GOSUB 150 

80 LET T2-T 

90 IF T1-T2 THEN GOTO 120 

100 LET A-A+1 

110 GOTO 40 

120 PRINT"CONTAGENS IGUAIS A 

Tl;" APOS "jA;" LANCAMENTOS- 

13D END 

14 REM. .SUBBOTINA 

150 LET D1=RND(6) 

160 LET D2-RMD(6) 

170 LET T-D1+D2 

160 RETURN 



Digite o programa abaixo usando so- 
mente maiiisculas, se o seu computador 
for compativel com o ZX-81. 



20 LET a-1 



30 HEM priBieira jogada 

40 GOSUB 150 

50 LET tl-T 

60 REM aegunda joQada 

70 GOSUB 150 

80 LET t2-T 

90 IF tl-t2 THEN GOTO 120 

100 LET a-d+1 

110 GOTO 40 

120 PRINT "Oa dados deram "jtl 
i " na jogada" ; a 

130 GOTO 200 

140 REM sobroutine 

150 LET dl-INT CRND*6)+1 

160 LET d2-INT tBND*6)+l 

170 LET T-dl+d2 

180 RETUEtN 
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10 CLS: LET Dl-RND (-TIME) 

20 LET A=l 

40 GOSUB 150 

50 LET Tl-T 

70 GQSUB 150 

SO LET T2-T 

90 IF T1-T2 THEN GOTO 120 

100 LET A-A+1 

110 GOTO 40 

120 PRINT "CONTAGENS IGUAIS A " 

Tl;" AP03 ";A;" LANCAMENT03" 

130 END 

140 REM . , . SUBROTINA 

150 LET Dl-INT tRND(l)*6J+l 

160 LET D2-INT(RND(1)*6)+1 

170 LET T-D1+D2 

175 PRINT Dl!D2:T 

IBO RETURN 

O arremesso do dado deve ser reali- 
zado duas vezes; por isso, e entregue a 
uma sub-rotina, que vai das linhas 150 
a 1 80. O GOSUB nas linhas 40 e 70 en- 
via o computador ao ponto de inicio da 
sub-rotina (linha 150). O RETURN na 
linha 180 manda o micro voliar a linha 
50, caso o chamado a sub-rotina tenha 
partido do GOSUB da linha 40, ou ^ li- 
nha 80, se tiver partido da linha 70. A 
linha 140 e usada para ideniificar o ini- 
cio da sub-rotina, usando a declara^ao 
REM, que significa apenas um coraen- 
tario feito pelo programador. 

Note a deciara^ao END na linha 130 
de todos OS programas (exceto os do Sin- 
clair, que usam um GOTO). Se ela nao 
estivesse ai, o computador passaria a exe- 
cutar a sub-rotina diretamente e, ao atin- 
gir a declaracao RETURN, assinalaria 
um erro, pois nao haveria indicagao pre- 
via sobre para que linha retornar. 



NIJMEROS DE LINHA INEXISTENTES 



I 



Como OS micros da linha Sinclair nao 
tern declaraflo END, utilizamos um 
GOTO seguido de um niimero de linha 



que nao existe no programa, ou seja, 
200. 

130 GOTO 20 

Em outro,s micros, isto daria uma 
mensagem de erro. O mesmo, entretan- 
to, nao acontece com a linha Sinclair: ao 
perceber que a linha 200 nao existe, o 
computador interromperd providencial- 
mente o programa, pronto para come- 
gar de novo. 

Para tais micros, i meihor usar esses 
expediemes do que colocar 

130 STOP 

que i aceilo pelo computador, mas que 
gera uma mensagem de advertencia na 
tela.'lsso poderia levai- o usuario a acre- 
diiar que houve um erro de execu(;ao do 
programa, especialmente porque a linha 
130 nao e a lillima Unhajisica do pro- 
grama, pois csta no meio dele, antes da 
sub-rotina. 

Mas seja o mais cuidadoso possivel 
quando utilizar, nessescomputadores, o 
comando GOTO seguido por um nume- 
ro de linha inexistente. 

Apos GOTO 200, por e.vcmplo, os mi- 
cros da linha Sinclair pesquisarao todas 
as linhas seguintes. E se encontrarem 
uma instrufao em alguma delas, eles a 
executarao (ou tentarao esecuta-la), in- 
dependentementedoconlciidodessains' 
tru?ao. Portanto, para ficar mais segu- 
ro, o meihor e enviar o computador pa- 
ra a ultima linha fisica possivel, que po- 
de ser a de niimero 9999, nos micros da 
linha Sinclair. 

E, para que nao haja nenhuma con- 
fusao quanto ao que voce esta fazendo, 
coloque: 

9999 REM EKD 



CHAMADAS MULTIPLAS 



E possivel uma sub-rotina chamar ou- 
tras, e estas, por sua vez, outras tantas, 
gerando assim uma estrutura em di ver- 
sos niveis. Assim como no jogo citado o 
dado deve ser lanfado duas vezes, a sub- 
rotina de arremesso pode ser constitui- 
da como uma sub-rotina dentro de ou- 
tra, desde que se raude as ultimas linhas 
do programa, da seguinte forma: 

DQ 

150 GOSUB 190 

155 LET Dl-D 

160 GOSUB 190 

165 LET D2-0 

170 LET T-D1+D2 

180 RETURN 

190 LET D=RND{6) 

195 RETURN 



Digite programa abaixo usando so- 
mente maiiisculas, se o seu computador 
for compativel com o ZX-81: 



150 


GOSUB 190 




155 


LET dl-d 




160 


GOSUB 190 




165 


LET d2-d 




170 


LET t=dl+d2 




180 


RETURN 




190 


LET d-INT (RND*6) +1 


195 


RETURN 




WijCi£ 




150 


GOSUB 190 




155 


LET Dl-D 




160 


GOSUB 190 




165 


LET D2-D 




170 


LET T-DH-D2 




ISO 


RETUBM 




190 


LET D-INT(RND(1) 


«6)+l 


195 


RETURN 





Aqui. as linhas 150 e 160 enviam o 
computador para a sub-rotina na linha 
190, que faz o dado rolar (i.sto e, sorteia 
um niimero aleatorio inteiro, entre 1 e6), 
enquanto as Hnhas 155 e 165 armazenam 
OS resultados de cada [an(;amento sepa- 
rado . 

Por uma questao de concisao, o com- 
putador realiza apenas o langamento de 
um dado, e nao de dois, separadamen- 
te. Veja a seguir: 

DD 

150 LET T=RND(5)+END(6) 



35 



ISO LET T=INT(6*RND+1) + 
INT(6*HND+1) 
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150 LET T = INT(6*RND(1)-H) + 
INT(6*RND{1)+1 



UTILIZE COMANDO ON...GOSUB 



Assim como GOTO, a decIara?ao 
GOSUB pode ser utilizada para chama- 
das complexas a um determinado niime- 
ro de sub-rotinas, comcgando em linhas 
diferentes. Nos microcomputadores da 
linha Sinclair (compativeis com Spec- 
trum e ZX-81). o GOSUB pode ser se- 
guido de uma expressao numerica, ou 
nome de variivel, exatamente como vi- 
mos anteriormente para o GOTO. 

No caso dos computadores de outras 
linhas, como TRS-80, Apple e MSX, 
existe a declaracao ON... GOSUB, que 
pode ser utilizada para o mesmo efeito. 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROG RAM AC AO BASIC 

que sao varidveis em promocao BASIC? Cordoes (strings) 
e cordoes vazios, como utiliza-los em jogos eletrizantes. 

CODIGO DE MAQUINA 

Aprenda a entrar um programa em linguagem de maquina no 
computador, usando um programa em BASIC e o comando POKE. 

PROGRAWIACAO BASIC 

Saia do mundo preto e branco e entre nos arco-fris, 
acrescentando cores aos desenbos nos micros TRS-Color. 

APLICACOES 

Como encontrar nomes e enderepos de pessoas 
a partir de poucas informacoes. 



OtWOGR^'^^iS 



iOGRAf^'^V 



Dt iOGOS 



.C60\GOD 



CJ»' 



^: 




><f 







y 's 




f^-^ 



